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1 

2 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

70 
?1 

^2 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
3 6 
37 
38 
39 
AS 
41 
42 
43 
44 



(»0C0?0 



i«»flrUPYPIGHT 1969, TIGMAL FQUIPMfNT CQPP . i MAYNARDi 1ASS,*»<t 

;THIS SUR-PRHGRA^ ASSEMigLEH '-'ITH SYSTEf^ PARAMETER FILE - S,MAC(V414) 

VLIST 

Ll'lT 
;HIc; sun-PRTGRA« ASSEMBLED i^ITh CONFIGURATION DEPENDENT FEATURE SWITCHE'^ - FT50SB,MAC( 
V £7 A) 

XLIST 

L 1ST 
TITLE ?Trs^N - NEW FORMAT "ECTaPF SERVICE FOR 551 (POP-6) 
SUOTTL r^.TA55^ A . ^ ACMS / TW/RCr '^1 JUN 69 V^l? 

VP VDTASR,f;i2 I f-LOBAL VERSION NUMBER FCR LOADER STORAnE MAP. 



FNTHY OTcSRN 



lE'^'TSY POIMT FOR SELECTIVE LOAD BY BUILD 



^Tr;SR^! 

EXTERMAL 

EXTERNAL 

EXTERNAL 
EXTERiMAL 
EXTERNAL 
FXTERiMAL 



00C"<)?4 RLt' = 4 



0051144 n 1R8L^ = "^1!''^ 

0011''1 T0PBLK = 11«1 

00fl?3 MAMSTM=fn83 

0000P^5 QUANT = 5 

00?a'/6 SPACE = 6 



TPOPJ,TPOPJl,DTCrriL.DCOUT,DCINiDCON,DCOFF 
STOIoS.STOTAr.SETACT.CLRACT.OUT.DTCSAV.PIOHOn 

nTAVAL,DTREQ.SET!OOiTHSDAT,PLINIT,GETDCDT 
ADVeFE,A0V=3Fr,ADPERR,WAlTl,CP0PJ.CPDPJl,PAnDIR 
C0MCwK,PJ0aN,RELFA9,UADCKliDTTRY 
JBTAnR,0CL0CiDCL0C1.DTCCKN,DCREC,DCAVAL 



;iMUKnER OF BLOCK FOR DIRECTORY 

;riIG-JEST LEGAL SLOCK NUMBER 

;1ST NA»«F WORD IN DIRECTORY 

INUMDE") OF BLOCKS CAN READ BEFORE GIVING UP HTC 

;NUmbl'5 of Bi OCkS SEPERaTING CONTIGUOUS =ILKS OF 4 FILE 



iDOB MAGIC CELLS 

000ei3 Fi.T8LK = 13 

00Z'014 0LrC = 14 

003015 IHLK=15 

000016 0BLK:16 

003017 nlSPAU=17 

00?la20 HMPLSTri;? 

000021 SvnwRU=2l 



OTCS^N - NFw FOwyAT PECTApr SERVICE roR ssi (pnp.j,) 
nTA551 A,WACHS/TW/R:r 3l JUN' 69 V^l? 



'ACR^.V3* 19lil6 'l-JLl^^-69 PACE 14 



45 
46 
47 
46 
49 
=^0 
51 
52 
53 
54 
55 
56 
57 
58 
59 
fiH 
fl 
62 
53 
64 



s ? 1 :» i5 



£'i)5"4'"0 

?02«5 2'iJ 
^ i) 4 / f / 
J'l'/l.ia 
P'2?J?K 
Z 4 ? i; ^ 
737777 



!^'LAGa I^ 
ur)'^o = ic"t' 



rh or los 



iFLAQb l^i LH OE 
».0L I\'K = 2?'K 
rH\'GnK = 4r'K 
RVER?E = l?ii!" 
SIVGL = ?M01i 
nMDM0U=4'ec 
^WC1H = 1S)/Z7 

nMPnLS = 2!'e?? 

NO=iUF = 40S'0^ 
*!0Rurc = 737777 



lOS 



777777 777777 CPnlT=-l 



iJUST READ OP WRTTE 1 CILOCK 



I I/O DIHECTLV TO USER 
)-NOi=UF 



!CR:\I'-IT1?,MAL ASSFMBly PAPAMETE^ FO^ I/O HiReCTLY 
!T0 mSER. if -1 TME I/O IN DUi^P MOOF WITH' 
;BIT 29 OM I\ IMIT HILL TO 10 OIPErTLY TO USFR 
iWlTi-'OliT DIRECT CONS I DER A T I 0^' ^F BLOHK HOUfJOtflES 
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65 
66 
67 
68 
69 

70 
71 
72 

73 
7 4 
75 



76 
77 



000000 
0015001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
0000?0 



446441 
000074 
000000 
000000 
001107 
000000 
000000 

000007 

000007 
00000B 
000000 
000000 
0000<«0 
000000 
000000 
000000 
0000("0 



200000 

000200 

000000 

000224' 

154403 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

0000?2' 

000000 

000000 

000000 

000000 



DTCDDB! 



INTERN DTCIl>iT,DTcnD''rnTCINI,DTcnoS 



SIXBIT 

XWD 



EXP 

XHD 

FXP 


/DTA0/ 

fO60»HUNr,ST,?00 


OTCDSP 
1107,154403 

0.0 


xwn 

XWD 
FXP 


PKOG,0 
PROG.Z 
0,0,0 


EXP 
EXP 


□TCDIR 

0.0,0,0,0 



7 8 
79 

30 
Rl 
nz 

84 

fiS 

S6 

97 

nS 

fi9 

90 

91 

92 

93 

94 

95 

95 

97 

98 

99 

100 

ICl 

l^Z 

1('3 

1?4 

li?5 



000021 
000022 



000222 
000223 
000224 
000225 
000226 
000227 
000230 
?00231 
000232 
000233 
000234 
000235 
000236 
000237 
000240 
000241 
000242 



000243 
000244 
000245 
000246 



00001'0 000000 



000222 



OTCDIK! SlOCK 
DTCDnb=.-DTCnOE 



254000 
254003 
2540^1 ^^ 
?540?i5 
2540"0 
2540?'Z 
2540''0 
2 5 4 ? 
2540 '0 
254a:->0 
254ii"0 
254?<'0 
254070 
254000 
263140 
2540?e 
263140 



7212''0 
720200 
513000 
263140 



000243 ' 

001445' 

000577' 

003663' 

000777' 

000730' 

000472 ' 

000247 ' 

000773' 

000725' 

000576' 

000574' 

000502 ' 

00031,5' 

000000 

000642' 

000000 



000000 
000000 

001357' 

000000 



JRST 
JRST 
OTCOSPl JRST 
JRST 
JRST 
JHST 
JNST 
JHST 
jRST 
JRST 
JHST 
JHST 
JRST 
JRST 
"OPJ 
JRST 
POPJ 



200 



DTCINI 

THRUTP 

UREL 

UCLS 

UOUT 

IJ I N 

ENTR 

LOOK 

OMPO 

r\MPI 

SETO 

SET] 

GETF 

RENAM 

POP. 

utpclR 

POP. 



! initialize dtc 

OTCINl! CONO DTC,0 

CONG DC.0 

NLL25 DTCI'JT 

POPJ POP. 



IriUNC DEVICE 



(CLOSE INPUT 
IMTAPE 



ICLE»R CONSO 
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1»6 

107 

1['8 

1''9 

110 

111 

112 

113 

114 

115 

1J6 

117 

118 

U9 

1?0 

121 

122 

123 

1?4 

125 

126 

127 

128 

129 

IMS 

131 

132 

133 

134 

l-'i 

136 

1"W 

138 

139 

I'll 
112 
143 
144 

Its 

146 
117 
148 
149 
ISf, 
151 



f?00247 
PI00250 
00C251 
C0PI252 
(?00253 
000254 
000255 
000256 
000257 
0002^0 
000261 
000262 

000263 
000264 
000265 
000266 
000267 
000270 



000271 

000272 
000273 
000274 
000275 
000276 
'"00277 

000300 

7003'^1 
000302 
700303 
000i"'4 
000305 



^00306 
000307 
00031 
000311 
000312 
000313 



6020?0 
2540.'0 
260140 
263140 
550131 
350000 
202120 
574040 
271040 
3360;»6 
506046 
542040 

201100 
260140 
3446''0 
350K.'K 
370K'3 
253340 



220r'0 
5161'0 
2756:-0 
6 2 1 E "0 
661i:"e 
?012.''0 
260i''-i; 
3 2 6 2-0 
2 6 014 
254i//g. 
260111-^ 
26,""l'i0 
5 066'16 



5502/6 
3360-6 
5 2 2 ■■■ 6 
542220 
500060 
502i;46 



000100 

000000 

000356 • 

000000 

000026 

000014 

000014 

000001 

000027 

000013 

000016 

000015 

000000 
000415' 
000271' 
000^02 

003001 

000423 ' 



JLOOKUP 
look; 



eXT£RM jOBSAV 

A OIRECTQRY ENTRY 



002077' 
000014 
^ " 2 
00''420 

0e2.;;^0 

00fll44 
000443 ' 
000303' 
000415' 
001 652 ' 
001176' 
020006) 
00001 5 



I IvDN-STANDARn? 

lYF.S, LOOKUP OK 

INC. FIND DIRECTORY ENTRY 

)i\IOT THERE 

IGET DATE. NO, OF IK bLOCKS NEEDFT 

IPOIK'T UUO TO WORD 3 

I IMTO USER'S LOOKUP 9L0CK 

IGET IMOEX 



TRME TOS.UOSO 

JHST rPOPjl 

PUSHJ PDP.OSERCH 

POPj POP, 

HRRH TA01,26(TAC) 

A OS UUO 

K-OVEf TAOl.SUUO 

LOOKA! HLBE TACTAC 

ADOl TAC,27 

SKIPK' rsTBLK(DFVOAT) ITAPE BEING WRITTEN? 

WRLM TAC,0Blk(DEV1AT) jNO, SAVE I-^DFX FOR POSSIRLE OUTPUT 

MRRM TAC;,ACl ;SAVE INDEX IN CASE LHU^LK) IS 

(CHANGED BY DEAD-RECKONING 

MOVEI TAC1,0 

PUSHJ PDP.RLKSRC iCOUNT NUMBER OF BLOCKS IN FILE 

ADJA UUO,ST0wn4 (LAST BLOCK nQNE 

*0S TACl (COUNT THE BLOCK 

SOS MPPP) (ADJUST FOR CORRECT RETURN 

AOBJN PUP.RLKSRB (LOOK FQR NEXT BLOCK 



(TACl HAS THE 



ST0WD4 ! 



LOPKHI 



000015 
000013 
000013 
000014 
000014 
000012 



LOOKCI 



70031 4 2540''K 000250 



If'llL 
HftLZY 

SUBI 
TL? 

TLO 
M V E I 
puShJ 

.lUMPS 

pUShj 

ir<;t 

puShj 
pUShj 
HRLM 



HRP^ 

SKIP^^ 

MOVE" 

HRPm 

HLL 

HLL^ 

JRST 



NUYiBER OF BLOCKS 
TAC1,C-177] 

TACl (^uun 
i)un,2 

IDS, 10 

lOS.SlMGL 

BLK.nlRSLK 

P0P,lSTFRE*1 

RLK , , *3 

PQP.RLKSRC 

POniR 

PDP.READ"F 

P P , w A I T I 

ACl, IBlK(DEV^AT 
(TEST 
(TO IE 

RLK, IBlkCDEVDAT 

fstblK(devd4T) 
rlk,fstblk(dfvd 

BL'<,'auU0 
TACSUJD 
TAC,'iEVEXT(D'"VD 

CPOPjl 



BFLONGl-gG TO THE FILE 

('NUMBER OF WORDS IF ALL BLOCKS FULL 

(STORE IN DIRECTORY WD 4 

(POINT UUO TO DIRECTORY WD 2 

(MAKE SURE ID IS OFF 

(JUST READ 1 RECORD 

(NO, FIND FIRST MENTION OF SLOCK 

(WEAR DIRECTORY 

(FOUND IF BLK NOT =0 

(FIND FIRST 'lENTION IN DIRPCTORY 

(NOT THERE - ERROR 

(GO READ IT 

(WAIT TILL IT'S IN 
) (SAVE INDEX ON INPUT FII E FOR LATER ' 
N ENTER - kiONT ALLOW ENTER 
DONE ON LODKED-UP FILE 
) (GET FIRST i^LOCK OF FILE 

(IF FILE HAS NOT BEEN ENTERED 
ATJ (SAVE IN DDR 

(SAVE IN USER'S AREA 

IGET USER'S EXTENSION 
*'^> 'SAVE IN DEVICE DATA BLOCK FOR RrJjAMF AND 

I AND SUPERSEDING SHARED SEGMENTS 

(AND TAKE GOOD EXIT 



DTCSRN - 



NEW FDRi^AT PECT*PE SERV 
DTA551 A.WACHS/TW/RCC 01 



ICE FOR '551 (PDP-6) 
JDN 69 VPIS 
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152 
153 
154 
l'=^5 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 

nil 

171 
172 
173 
174 
175 
176 
177 
178 
179 
160 
181 
in2 
1»3 
1C4 
185 
186 
1»7 



^00315 
00!"316 
?I00317 
(>0C-320 
70?321 
^'00322 
00P1323 
f!00324 
000325 
000326 
000327 
000330 
000331 
000332 
?'00333 
^.00334 



261140 
2016?6 
262140 
?54ti''0 
262140 
332020 
?540"10 
4020i'l 
402e-n 
4020?6 
574040 
271040 
260140 
661000 
3500f-3 
2 5 4 1» 



000014 

000011 

000360' 

000350' 

000014 

000014 

000335' 

000000 

000026 

000011 

000001 

000027 

000464 

000400 

000000 

000300 



RZvt,^: 



RENAMl 



!'00335 200240 000001 



000336 
^00337 
C00340 

000341 

000342 
000343 
000344 
000345 
000346 
000347 

1^00350 
000351 
000352 
000353 
000354 
000355 



260140 
334000 
;3540?0 
J00afi0 
?02045 
360000 
P0006C! 
502045 
502046 
2b40-."0 

262140 

634040 
201040 
3500;''0 
542060 
263140 



PUSH 

MOVEI 

PUSHJ 

JRST 

POP 

SKIPE 

JR?T 

SETi!" 

<;et2m 

SETZM 

MLRE 

ADOI 

PUSHJ 

TLO 

AOS 

jRST 



PDP.uun iSAVE ton of new name 

UUn,OEVFIL(OFVnAT) JSEARCH FOR OLD NAME 

PDP.DSERl 

INHT FOUND - ERROR 
(FOUND. RESTORE UUO 
;RENiMlNG TO EERO? 
!N0. GO DQ RFAL RENAME 
(YFS. DELETE NAME IN DIR 
(DELETE EXTENSION 
(EERO DEVFIL 
(GET INDEX OF FILE 



RENERl 

PDPfUUn 

(SUUO 

RENAM2 

(TAC) 

26(TAC) 

nEVFIL(DEVDAT) 

TAC, TAC 

TAC, 27 

PO°,nLETE 

lOS.CHNGDR 

(POP) 

STOIOS 



(DELETE ALL pLOCKS OF FILE 
(DIRECTORY HAS CHANGED 
(SET FOR GOOD RETURN 
IGO TO USE" 



l^^'^.r "'^^^ ' ''*' ^^^^"^0C OF NAME IN DIRECTORV 



000356' 

000000 

000352' 

00001 4 

000000 

000014 

000014 

000026 

000012 

000332' 

000014 
000301 
000004 
000014 
000014 
000000 



RtNE^ll 



RENER2I 



PUFHJ 

SKIP/. 

JRST 

yOVE 

"OVE" 

tOS 

•^OVE 

ULLM 

HLLM 

JRST 

FOP 

TD?A 

MOVEI 

SOS 

l-iRRH 

POPj 



(SEARCH FOR NEW NAME 
FOUND - GOOD 

(NAME ALREADY EXISTS 
(GET NEW NAME 
(SAVE IN OIR 

(EXTENSION 
(SAVE IN DIR 



POP.nSFRCH 

(NOT 
RENER2 
TAC,»U'JD 
TAC. (OAT) 
UUO 

TACSUUO 
TAC,26(DAT) 
TACDEVEXTtDEVOAT) (SAVE INN DDB 



ERROR 



RENAMl 

POP, UUO 
TAC. TAC 
TAC, 4 
UUO 

TAC.ffUUO 
POP, 



(GIVE GOOD RETURN TO USER 



(RH E+l =0 

IRH F+1 =1 

(POINT TO 2nO word 

(SET ERRORR CODE 

(AND TAKE ERROR RETURN 



nTCSRN 



1<»8 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 

27,\ 
2;i2 
21^3 
2C4 
2?I5 
2:«6 
2^1 
2?8 
2!"9 

2ie 

211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
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B0C1356 
000357 
300360 
000361 
000362 
000363 
000364 
000365 

000366 
000367 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000400 



000401 
000402 
000403 
000404 
000405 
000406 
000407 
00041 
000411 
000412 
000413 
000414 



201654 
260140 
260140 
550046 
270040 
336120 
2540-30 
202106 

316101 
344610 
253040 
263140 
510120 
430101 
607100 
2540.-'0 
252040 
3646B0 
3646 '0 



6060?ie 
3370.16 
263140 
2012^0 
6210:^0 
263140 
6610''0 
260140 
260140 
205n;0 
4 3 6 1 ■> 6 
263143 



000^03 

007000 

P004SI1' 

0000] 4 

002100' 

000i!14 

000000 

000011 

000000 
000372' 
000366 ' 

000000 

000014 

000026 

777777 

000314' 

000400' 

300363 ' 

0000^50 



0001/10 

000004 

00000 

000144 

003020 

300712' 

010000 

0012-00' 

000304 • 

400000 

000004 

000000 



;SEARCH nlRt^TORY FOR 4 MATCW 



OSFRch: 
OSEHi: 



MMlOOk ! 



NMFOUMI 



■^OVEI 

PUS4J 

PUShJ 

MRR2 

ADD 

SKIPNJ 

JftST 

"OVE" 

rAH\ 

AOJA 

AOPj'vi 

POPJ 
wLl-£ 
XOR 

JRST 
A OP J" 

'^OJA 
SOJA 



ACl,3(iiuri) (CHECK VALIDITY OF ADDRESS 

PDP.UADCKl It^EVER RFTURK! IF ADDR. OUT OF BOUNDS 

POP.nlRCMK lENSURE DIRECTORY IS IM CORE 

TACCLOCfOev^AT) ILOCATION OF DIRECTflRY 

TACCXjo '26.N4MSTP] IRQINT TO START OF NAMES 

■'ACl.SJUO (GET NAME 

TPOPJ ;l>JULt. ARGUME\iT - ERROR RETURN 

TAni.OEVFiLfEVDAT) ISTORE FOR RENAME AND SUPERSEDING 

I SHARED SEGMENTS 

ITEST FOR MATCH 

IFHUND NAME, CHECK EXTENSION 

!TRY NEXT NAME 

i\iTT FOUND 

IPICK UP USER'S EXTENSION 

(TEST AGAINST DIRECTORY EXTENSIO" 

(MATCH? 

(YFS. RETURN 



TACl, (TAC) 
UUO.NMrouN 
TAC. , -2 
POP, 

TAC1,9JU0 
TACl ,26(TAC) 
TACl,-l 
CPOPJl 
TAC, ,*2 
liUO, NMI.UOK 
■ JO,CP"!P,l 



i -JO. TRY NEXT NAME 
i-VAMF NOT FOUND 



(CHECI^ If^ niRECTlRY IS IM COi^E. IF NOT, READ IT 



DIRCWK! TRNN lOS.L'DSD 

SKIPr- TEVMnD(OFVDAT) 

PQOj PDP, 

■-laVEI PLK.nlRBLK 

TL? lOS.IO 

pUShJ pdr.getdt 

Tin ios,rwt[r 

pushj pdp.readbc 

PUSHJ PQP.WAITi 

MOVSI TACl.DVQIRI 

CRM TACl,OEV"On(nEVDAT ) 

PUPJ PDP. 



NON-STANDARD 



(0"NT ROTHFR IF 
(IS IT P'? 
(YES, RETURrJ 
(BLOCK NUMBER 

(GET CONTROL 

(JUST RE«D 1 BLOCK 

(GO READ IT 

(WAIT TILL IN 

(SET DIRFCTOPY-IN-CORE BIT 
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27Z 








;SEARCM 


i^IRECTO 


RY FOR FILE WH 


OSE INDEX IS IN 1 


■AC 


224 


000415 


205242 


440500 


RLKSRC; 


MOVSI 


DAT, 44^500 


IDAT IS A BLOCK POINTER 


2?5 


000416 


540246 


000014 




HRR 


DAT.DLOCIDEV^ 


AT) 




226 
227 
228 


000417 


2012012 


000001 




^OVEI 


PLK.l 


ISTART AT BLOCK 1 


000420 


1344^0 


000005 


BLKSRA! 


ILDB 


TEM.DAT 


IINDEX OF NEXT 


■ BLOCK 


229 


000421 


316040 


000010 




CAMN 


TAC.TEm 


IM4TCH? 




230 
231 
232 


000422 


?54a!'-0 


000375' 




JRST 


CPOPJl 


lYES. RETURN 




000423 


3052Se 


001101 


BLKSRB! 


CAIGE 


BLK.TOPBLK 


INO. SEARCHED 


LAST? 


233 


000424 


344200 


000420' 




AOJA 


BLK.BLKSRA 


INO. TRY NEXT 


BLOCK 


234 
235 
236 


000425 


263140 


000000 




POPJ 


POP. 


lYFS. RETURN 










!SET UP 


POINTER 


TO DIRECTORY 


FOR SLOCK IN BLK 




237 


000426 


261140 


000004 


SETPTH; 


PUSH 


POP.BLK 


(SAVE BLK 




238 


000427 


260140 


000543' 




PUShJ 


POP .IlRPTR 


ISET BLK AS 4 


BYTE POINTER 


239 


000430 


200240 


000004 




MOVE 


OAT.RLK 


IRETURN IT IN 


DAT 


240 


000431 


262140 


000004 




POP 


PDP.BLK 


(RESTORE BLK 




241 


000432 


263140 


000000 




POPJ 


PDP. 


(AND RETURN 




242 
243 








;GET next available rREE BLOCK 




244 


000433 


261140 


000010 


NXTFREi 


PUSH 


PQP.TEM 






245 


000434 


260140 


000426' 




PUSHJ 


PDP.SETPTR 


(SET OAT TO A 


BYTE POINTER 


246 


000435 


201040 


000000 




"OVEI 


TAC,0 


(LOOK FOR FREE 


: BLOCKS 


247 


000436 


260142 


000420' 




PUSHJ 


PDP.8LKSRA 


(FIND A ZERO BLOCK 


248 


000437 


201200 


000000 




MOVEI 


BLK,0 


(NOT THERE- RETURN 


249 


000440 


252140 


000010 


FREXITl 


POP 


PDP.TEM 






250 
251 
252 


000441 


263140 


000000 




POPJ 


PDP. 












.•GET PREVIOUS FREE BLOCK 






253 


000442 


201040 


000000 


LSTFREl 


i^OVEI 


TAC,0 






254 


000443 


261140 


000010 




PUSH 


PDR.TEM 






255 


000444 


?712''e 


000002 




4001 


BLK,2 






256 


000445 


260140 


000426' 




PUSHJ 


PDP.SETPTR 


(SET DAT AS A 


POINTER 


257 


000446 


275200 


000002 




SUPI 


BLK,2 






258 


000447 


260140 


000455' 




PUSHJ 


PDP.DECPTR 


(DECREMENT BYTE POINTER 


259 


000450 


135400 


000005 




LOB 


TEM.QAT 


(INDEX TO BLOCK 


260 


000451 


3164r?0 


000001 




CAMN 


TEM.TAC 


(FOUND? 




261 


000452 


2640f:0 


000440 ' 




JRST 


FREXIT 


(YFS. RETURN 




262 


000453 


3672?0 


000447' 




?OJG 


RLK,,-4 


(TRY AGAIN IF 


NOT AT START 


263 
264 
265 


000454 


2540:10 


0004401 




JRST 


FREXIT 


(REACHED STAR1 


r - RETURN BL 








IDECREMEMT BYTE 


POINTER 






266 


000455 


321240 


00:^462' 


DECPTHi 


JUMPL 


HAT, ,+5 






267 


000456 


270240 


002101' 




ADO 


DAT, [BYTE (6) 


5] (DECREMENT 




268 


000457 


327240 


000400 ' 




jUMPr, 


OAT.CPOPJ 


(IF POSITIVE ■ 


• SAME WORD 


269 


000460 


505242 


010500 




HRLI 


DAT. 010500 


(RESET TO PREVIOS WORD 


270 


000461 


364240 


000457' 




SOJA 


OAT.CPOPJ 






271 


000462 


505240 


060570 




HRLI 


DAT, 060500 






272 


000463 


364240 


000461' 




SOJA 


DAT.CPOPJ 







DTCSRN 
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273 








274 


PI0?464 


201i:-;0 


000000 


275 


000465 


260140 


000415' 


276 


?00466 


254000 


000463' 


277 


000467 


1371^0 


000005 


27B 


000470 


3700C3 


000301 


279 


000471 


253140 


000423' 


2S0 








2S1 








282 








2^3 


000472 


602030 


000100 


204 


000473 


254000 


000422' 


285 


000474 


260140 


000356' 


2S6 


P00475 


2540''0 


000553' 


2»7 


000476 


200120 


00031 4 


288 


000477 


3500^0 


000014 


239 


!?.00500 


540120 


000014 


290 


000501 


6^61'>0 


007777 


291 


000502 


434ic'.0 


000000 


292 


000503 


?02l-'l 


000326 


293 


000504 


335746 


000016 


294 








295 


0005»5 


3446?0 


000560' 


296 


000506 


2756;~0 


000002 


297 


000507 


200120 


000014 


298 


000513 


20?l.n 


000000 


299 


000511 


574040 


000001 


300 


000512 


271040 


000027 


3'?1 


000513 


554246 


000015 


3?2 


000514 


274240 


000001 


3:^3 


000515 


322240 


000466' 


3''4 


000516 


506<<46 


00'^316 


3?i5 








3?6 


000517 


2601'10 


000464 ' 


Z7-1 


000520 


342740 


0i;0570' 


3?8 








3:"9 


000521 


7012 '0 


00;'144 


31 


000522 


661?:' t' 


001003 


311 


030623 


26'.'14i{ 


000636' 


312 


000524 


3032"0 


?01101 


313 


000525 


263140 


000000 


314 


000526 


2022:'6 


00;i313 


315 


000527 


?422^'6 


000016 


316 


000530 


350e-'0 


030014 


317 


000531 


542220 


000014 


318 


000532 


500060 


000014 


319 


000533 


502046 


000312 


3213 


000534 


6610?0 


000200 


321 


000535 


3500-'3 


000000 



;COME HERE TO DELETE THE FILF HHHSE INDEX IS INN TAC 

DLETE! f'OVET TAC1,0 isET TO PELETE BLOCKS 

FUShJ PDP.RLKSRC IFINO a block BELONGING TO FILF 

JRST CPOPJ (ALL THROUGH 

OPB TACl.DAT (OELFTF IT 

?0S l(PDO) (ADJUST PDL FOR RETURN 

AOBj'-i PDP.BLKSRB ! AND FINO NEXT MATCH 



(ENTER A FILE NAME IM DIRECTORY 



ENTRi 



ENTR2! 



ENTRA! 



ENTRCi 



TRNE 
JRST 
PUSHJ 
JRST 

AOS 

MRP 
TRMM 
lOR 
WOVE" 



AOJA 

SUBI 

MOVE 

MOVEM 

mlRE 

ADD I 

HLR£ 

SUB 

JUMPF 

HRLM 

PUSHJ 
40JE 

«OVEI 

TLO 

puShj 

CAILF 

PQPJ 

"CVE'l 

NRRm 

AOS 

HRPy 

MLL 

HLLf' 

TLO 

AOS 



IQS.UOSD 
CPOPjl 

pdp.dserch 
newent 

TAC1,9UU0 

UUO 

TACl,i?UUO 

TACl,7777 

TACl.THSDAT 

TAC1,26(TAC) 



SKIPGE AC3,OBLK(OEVnAT) 



■JU0,SETW04 

UUO, 2 

TACl.UUUO 

TACl, (TAD 

TAC, TAC 

TAC, 27 

DAT, IBLKIDEV^AT) 

OAT, TAC 

HAT iCPOPJ 

TACOBLKIOEVDAT) 

POP. DLETE 
AC3,ENTRn 



BLK.DIRBLK 
lOS.RVERSE 
PDP.USLSTA 
«LK,TOPBLK 
POP, 

BLK,FSTBLK(DFVOAT) 
BLK.OBLK(OEVDAT) 



INON STANDARD? 

(YES. RETURN 

INO. LOOK FOR MATCH 

(THIS IS A NEW ENTRY 

(PICK UP 2ND WORD (EXTENSSION) 

(POINT TO WORD 3 

(ADD DATE 

I IS DATE ALREADY THERE? 

(NO, ADD CURRENT DATE 

(INTO DIRECTORY 

(IS THIS A SAVE FILE (UGETF DONE 
(BEFORE THE ENTER?) 
(YES, STORE LENGTH IN DIRECTORY 
(NO. POINT TO NAME 
(PICK IT UP 
(INTO DIRECTORY 
(COMPUTE INDEX OF FILE 

( INDEX OF INPUT FILE 
JWRITING SAME FILE AS READING? 
(TAKE ERROR RETURN IF YES 

(SAVE INDEX IN DOB 

(DELETE ALL BLOCKS BELONGING TO FILE 
(FIND FIRST FREE BLOCK ON TAPE K TrilS 
( IS A SAVE FILE (UGETF DONE) 
(NO. GET 1ST BLOCK CLOSE TO 
(DIRECTORY, GOING IN REVERSE 



(BLOCK LEGAL? 
INO, ERROR RETURN 

SAVE AS 1ST BLOCK 
(SAVE IN DOB 



JUO (POINT UUO TO WORD 2 

3LK,SUU0 (SAVE 1ST BLOCK IN USER'S ARFA 

TAC.iaUUO (GET EXTENSION 

TAC,nEvEXT(DFVDAT) (SAVE EXTENSION IN DOB ALSO 

lOS.NOL INK 

(POP) 
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322 








323 


J^0fl536 


260140 


000543' 


3?4 


f0P537 


554046 


000016 


325 


fi0054B 


136040 


000H?4 


326 


l»(a0541 


661Z00 


000400 


327 


!"0P1542 


2540e0 


000334' 


328 








329 








330 


B00543 


275200 


000001 


331 


000544 


231200 


000007 


332 


700545 


270206 


000014 


333 


000546 


505200 


440500 


334 


000547 


322240 


000515' 


335 


000550 


133000 


000004 


336 


000551 


367240 


000550' 


337 


700552 


263140 


000000 


338 








339 








340 


000553 


274040 


002102' 


341 


000554 


336001 


000000 


342 


000555 


3446i'0 


000476 ' 


343 


000556 


253040 


000554' 


344 


000557 


263140 


000000 


345 








346 








347 








348 


000560 


574170 


000014 


349 


000561 


213000 


000002 


350 


000562 


570420 


000B14 


351 


000563 


270100 


000010 


352 


000564 


6201!^0 


001777 


353 


000565 


242100 


000002 


354 


000566 


436101 


000026 


355 


000567 


364600 


000506 


356 








357 


000570 


201040 


000000 


358 


000571 


260140 


000415 


359 


000572 


263140 


000000 


360 


000573 


25407.0 


000526 



;mark directory entry pointed to by plk as taken 

MARKOHI PU^HJ POP.nRPTP tSET POINTER TO BLOCK IN OtR 
MLR2 TAC,0BUK(0EVOAT) jPICK UP IM^EX 
SDPB TACPLK IMARK niRECTORV 

TLO lOS.CHMCriR IDIRECTORY HAS CHANGED 
JRST STOIOS 

i;SET POINTER TO CORRECT DIRFCTQRY ENTRY 



ORPTR i 



SUBI 

IDIVI 

ADO 

HRLI 

JUMPE 

IBP 

SOJG 

POPJ 



BLK.l ISET FOR ILDB OR 1DP8 

gLK,7 iCOMPUTE word. POSITION 

BUK,DUOC(DEVDAT) ifiET CORRECT ADDRESS 

BLK, 440500 MAKE IT A BYTE POINTER 

OAT.CPOPJ (CORRECT FOR POSITION IN WORO 

BLK 

DAT, ,-1 

DQP. 



IHERE FOR NEW FILE NAME ON ENTER „,nrrr 

NEWENT: SUB TACrXWD 26, 26:1 iSTART AT BEGINNING OF DIRECT, 



SKIPN (TAC) 

AOJA UUO.ENTR? 

iOBjM TAC, .-2 

POPJ POP, 



(FIND A FREE SLOT 

IRETURN WITH UUO POINTING TO WRD 2 

INONE AVAILABLE, 



)SET UP LENGTH OF FILE IN DIRECTORY FOR A SAVE FILE 



SETWD41 



FNTRD! 



WLRE 

«OVNiS 

HRRE 

400 

TRi? 

I_SH 

TKM 

■^OJA 

"OVEI 
OUSHJ 
PCJ 
.IRST 



TAC1,9UU0 
TACl 

TEM.^UUO 
TACl.TEM 
TACl, 1777 
TACl, 2 

TAC1,26(TAC) 
UUO.ENTRA 

TAC,0 

PDP,RLKSRC 
POP. 
FNTRC 



(GET -LENGTH 
I+LENGTH 

I tSTART ADDRESS 
ISTORE N-li WHERE N 



IS NO OF K 



llUTCi 2Nn WRD OF DIRECTORY 
[CONTINUE WITH ENTER 

JGET THE 1ST FREE BLOCK ON TAPE 

IAS THE 1ST LOGICAL BLOCK OF THE FILE 

(NONE AVAILABLE 

(CONTINUE WITH ENTER 
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361 
362 
363 

m 

366 
367 

368 
369 
370 

371 

372 
373 

371 
375 
376 
377 
378 
379 
3S0 
3«1 
3«2 
383 
384 
385 
386 
387 
388 
399 
390 
391 
392 
393 
391 
395 
396 
397 
398 
399 
400 
4al 
4:^2 
4?3 
4 ^4 
4T5 
4;!6 
477 
4?8 
4?9 
410 



(700574 
?!0?I575 



6300I!0 
334240 



!»00576 ?012'>6 

000577 260140 

000600 5425; 5 

000501 254070 



00PI602 
("00603 



000607 
000610 



000611 
000612 
000613 
000614 
000615 
000510 
i''006l7 
000620 
000521 
000622 
000623 
000624 
000625 
000626 
000627 
000630 
000631 
000632 
000633 
8100534 
000635 
000636 
000637 



250140 
260140 



P00040 

2640?0 



2014 '.0 
^352^0 

2014^0 
701470 
5502.'6 
fc030'0 
2i40'?0 
271210 
30?2;i0 
634220 
260140 
326200 
663400 
254000 

*41000 
5414?0 
254000 
275210 
337000 
6342?'0 
260140 
254000 



002103' 
000006 



■? 1 
00V1411' 
000015 
000542 ' 



000577' 
000401 • 

700604 260140 00'r!611' 

000605 336«?6 000016 

000606 4772»6 000016 



000004 

00 000 



^0^006 

0'1000 
015 
0000'''2 
B00002 
000016 
0010^0 

000633' 

000000 

01171 
000004 
000433' 
000501' 

000001 

000640' 

001000 
000001 

000516' 

00 00 
0000'>4 

000004 
000442 ' 
000625' 



;usETi 

SETI : 



iUSETO 
SETO! 



iUGET^ 
GETF! 



- SET NEXT INPUT flU'.iCK TO READ 
TD? IQS.rXi-iiJ lOE'-'D.IOOENC] 
5K1PA nAT.nEvOAT 

- Si^T NEXT OUTPUT BLOCK TO READ 
MOVEI '-iaT.KDlVDAT) 

buShJ PUP.WAITI IWAIT For BUFFERS TO FILL (OR EMPTY) 

HRR;.i UJO, IBLK (DAT) ;SET PLOCK Nuf^BES 

jssT ';toios istoe ios, popj 

- GET NEXT TREE BLOCK FOR THIS FILE 



PUShJ 
PuSnJ 

PuShJ 

skipv 

SETO" 

"OVE 
JRST 



;GET NEXT ( 

USRFRE; "OV 

lOP 

-AI 

^■ov 
■••ov 

^ISRFRA! iJRR 



JRS 
ADH 
FA! 
TO? 

PUS 
JU^ 

Tin 

JRS 
TlC 
MRR 
JkS 
SUP 
SKI 
TCH 
°US 
jRS 



CALNXTl 

USRLST ! 
USLSTA! 



PDP.wAlTl 
PDP.DlRCHK 



IWAIT TILL SUFFERS EMPTY 
(ENSURE TIP, IN CORE 

pDP,;JSRFRE !GET NEXT AVAILABLE PLOCK 
OBLK(DEV')AT) IIF AiN ENTER HAS NOT BEEN DONE. 
'^LK.OSuKfOEV^AT) ;SET SWITCH SO THAT ENTER WILL GET 
IIST FREE SlOCK on TAPE (FOR 10DMP) 
TACBLK ITElL USER THE BLOCK NUMBER 

ST0T4C 



0' 
El 

L 

I 
EI 
i 
E 

T 
i 

LE 

A 

HJ 

PM 

E 

7 

I 

T 

I 

Pr, 

A 

rij 

T 



PREVIOUS) FREE BLOCK 

TE«. SPACE IbLOCKS "SPACE" APART 

^LK.PIOMOD iEXCEPT nuMP-nOSE 

RlK ,SD 

TEM,2 

TEM,2 IWHICH APE CLOSER 

3LK,0BLK(0EvnAT) ;CUKRtNT BLOCK 



lOS.RVERSE 

JSRlST 

SLK, (TEM) 

BLK.TOPfiLK 

euK.PLK 

PDP.NXTFRE 

RLK.STOinS 

TEf^.l 

noblks 

lOS.RVERSE 
TEM.l 

usrfra 

PLK, (TEM) 
□ LK 

"LK.^LK 
ROP.lSTFRE 
CALNXT*! 



(FORWARD? 

I NO 

lYFS. FINO 



NEXT RLOCK AT LEAST N 



iPLOCKS PAST THIS ONE 
IRETURN IF FOUND 
IFOUND NONE Olv THIS PASS 
;TAPF IS FULL 
(REVERSE DIRECTION 
(START LOCKING AT NEXT BLOCK IN OTHER DIRECTION 

(LOOK FOR FREE 



BLOCK N BTFORE 



[REVERSE IF 
(THIS One 



AT FRONT OF TAPE 



(NO FREE BLOCKS AVAILABLE. GIVE HIGH BLOCK, SET lOBKTL LATER 

000640 2012^0 001102 NOBLKS! ^-OVEI PLK.TOoBLK + l (SET HIGH PlOCK 

000641 263140 000000 =OPj POP. 



nrcsRN 



• NEW FORMAT hectare: SERVICE FOR 551 (PDP-6) 
DTA551 A.WACHS/TW/RCC 01 JUN 69 VI«12 



MACRO, V36 19!e6 4-JUN-69 PAGE 23 



111 iUTPCLR UUO 

412 5i0[i!642 6020011) 000100 UTPClR! TRNE IPSaiDSO 

413 f"00643 263140 000000 POPj PDP, (FORGET IT FOR NOM-STANDARO 

414 000644 205040 4000(>ia MOVSI TAC, 400000 ISET D I RECTORY- IN-CORE BIT 

415 ?00645 436016 000004 ORM TAC . DEVMOO ( DFVDAT ) 

416 000646 661000 000400 TLO IOS,CHNGDR IDIRECTORY HAS CHANGED 

417 B00647 550046 000014 hkR£ TAC , OLOC ( DEV^AT ) iLOC OF DIRECTORY 

418 000650 5041i;'0 000001 MRU TACl,TAC 

419 000651 5411i'n 000001 uRP[ TACl.KTAC) IBLT POINTER 

420 000652 4020i-l 000000 t^ETiiM (TAC) 

421 000653 251131 000176 BUT T ACl , 176 ( TAC ) 

422 000654 205100 017000 MOVSI TACl, 17000 

423 000655 202l?l 000016 MOVE** TAC1,16(TaC) 

424 000656 205100 757000 MOVSI TACl, 757000 

425 000657 202l.il 000000 MGVEM TACl, (TAC) 

426 000660 205l?0 777770 "OVSI TACl, 777770 

427 000661 455l!?l 000122 ORCAM TACl , NAMSTR-1 ( TAC ) 

428 000662 254a?10 000625' JRST STOIOS 



(LEAVE LAST WORD IN OIR, ALONE 
(MARK DIRECTORY AS UNAVAILABLE 

(RESERVE BLOCKS 1 AND 2 
(FOR READ IM MODE LOADER 

(MARK Blocks 1102-1105 as 

(UNAVAILABLE ALSO 
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4?9 

430 

431 

432 

433 

434 

4 35 

436 

43 7 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 



C500663 
00(?664 
C0P!665 
("00666 
e'00667 
('0f"670 
C0e671 
C00672 
!^00673 
P00674 
000675 



000677 
000700 
(^00701 
1^00702 
000703 
000704 
000705 
000706 
000707 
000 710 
000711 



000712 
000753 
?|00714 
000715 
000716 
000717 
000720 



000721 
0007?2 
000723 
?.007?4 



6230''0 
6020;'0 
2640'10 
135040 

301040 
?540i-0 
301066 
?001"1 
667if0 
?02l-'l 
'020':6 
2540/50 



402006 
260140 
620000 
337006 
627000 
263140 
661000 
2601^0 
201200 
260140 
254000 



260140 
352000 
201040 
202040 
202340 
202300 
254000 



6610'10 
260140 
4020'"0 
254000 



000200 

000100 

0006621 

0006J2' 

000016 

000721' 

300010 
000001 
777777 

000001 
000002 
R00000 



000013 
001170' 

000100 

000004 

000400 

000000 

010020 

000712' 

000144 

001045 ' 

000602' 



iCLOSE 

UCLS! 



000000 
000000 

000005 

001664' 
001657' 
001656' 

000000 



000721' 
000712' 
001677' 
001022' 



UlJO 
TL?E 
TRN'E 
JRST 
LDR 
CAIL 
JRKT 
•'OVEI 
MOVE 
TLCN 
"OVEM 
MQVE'I 
JRST 



;RELEASE UUC 



I0S,M0LI''1K !IF NO LINK TO FREE RUOCK 

lOS.nDSD lOR IF NON-STD MODE 

STOIOS (FORGET IT 

TACPIOMTD ) WRITE LAST BLOCK 

TAC,16 IDUMP MOOE? 

CLSDMP ,YES. CLflSF 



TAC.iaOEVOAO(nEVOAT) HOC OF 
TACl.KTAC) ILINK WORD 

TACl,-l !LIN<=-1 IF 

TACl.KTAC) (LINK = -i, 



IDS, 
OUT 



OEVIOS(OEVOAT) 



nUMP MOCF 
PUFFFR 

NOT SPECIFIET 
EOF 



I SAVE 10? 

TO WRITE RECORD 



URFL: 



SET2W 


FSTblK(DEVDAT) 


PUSHJ 


PDP.NJXTCMJ 


jni 


lOS.UDSD 


SKIPG 


OEVMnOtOEVDAT) 


TL?M 


lOS.CHMGDR 


PDPj 


PDP, 


TLO 


IOS,RWr)lR*lo 


PUSHJ 


PQP.GETDT 


"^OVEI 


RLK.nlRBLK 


pUShj 


PDP, WRTBLK 


JRST 


WAITl 



iGFT DEC TAPE CONTROLLER 
GETOT: PUSHJ PDP,GETOCDT 



AOSE 

HCVEI 

MOVEM 

MOVEM 

MOVEi^ 

JRST 



;HERE TO CLOSE 
CLSOmPs TLO 

PUSHJ 
SET2»^ 
JHST 



DTPEO 

tacduant 

tacquanth 

prog.useprg 

oevoat.usewro 

setact 



IZEHO FSTBLK 

ICLEAR OUT DUMP-MODE STUFF 

ICLEAR NON-STO BIT 

I IF DIRECTORY HAS BEEN 

JMODIFIEO IT MUSY BE WRITTEN' 

JNOT TCUCHEU 

(GOING TO WHITE IT 

(WAIT TILL DTC AVAILABLE 

IBLOCK NUMBER 

I WRITE UT 

lOONT RETURN TO USER TILL DONE 



IGFT DATA CONTROL, DECTAPE CONTROL 

IARGUNENT FOR GETDCO 

IHAVE IT NOW 

IKEEP IT FOR DtlANT BLOCKS 

ISAVE ACS NEEDED ON INTERRUPT LEVEL 
ILIGNT lOACT AND RETURN 



A DUMP MOODE FILE 
lOS.CLSOMP ISET SWITCH 
PDP.GETDT iGET CONTROL 
^UF (ENSURE LINK, WORDCOUNT=0 

nU'^UUL IGO WRITE LAST RECORD 
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■173 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

455 

486 

487 

488 

489 

400 

491 

402 
493 
404 
495 
496 
497 
498 
409 
5.->0 
5211 
512 



?0(^725 
?0P'725 



?0f 726 

?a07?7 



20(9731) 
?ia?731 
C100732 
i"0«733 
r'0S^73« 
(?0fl735 
(»0(^736 
e0f737 

r"0fi740 

?00741 



5100742 

iieP74j 

/'00744 

f0!»74S 
'100746 

700750 
00f^751 



621iiiS!0 
5502.'6 
260140 
602000 
J54eS0 
3222'0 
?61'140 
ft07i1"'0 
3022 '0 



000020 
000015 
000665' 

000100 

001176' 
00;?7'56' 
0091752' 

004^.'.li!l 

^ ;i 1 4 4 



?54i'0 001176' 



.?6;'i40 

504046 
2011P6 
5 4 1 ;: .1 2 
251.-32 

260140 

2550'0 
263140 



0004?1 ' 
000014 

0000:;"7 

000i!i'l 

000200 

000K00 

0030r'0 

00001)0 



i='XTE=)i\) JOfiDOT.uSRDOl 
lOi'MP MOOE rip'JT 



550716 0iS00l5 

260140 001070' 
2540H0 000762' 



DMPI I 



; I-vjPuT 

UUJ! 



IF\ 

HRO? 



pUShJ 
JflST 



UiJO 
TL? 
HRR2 

,IRS1 
JbMpr 

TLM\ 
"AIE 



CPBIT, < 

4C2, IBUK(DEi(nAT) 

ODP, "^MPSET 
SERCCR 



ISET UP DUMP-MODE STUFF 

liiERO USER'S COKE IF SAVF-MOOE 



lOS, ID 

RLK, iBLK(r)EvnAT) ;BLOC;k TO READ 

PJP.STniOS 



lOS.UDSO 

REAiJPF 

8LK,E0F 

PJP.RLKCHK 

lUS.TMPyOD 

3l.K,TIR5LK 

i^EADSF 



(NON STaNDAR? 

)3 MEANS EOF 

JCHECK LEGALITY 

J3IIMP .MOnE? 

JTRYING TO READ DIRECTORY? 

I'VO. GO READ 



OF BLOCK (MUMPER 



i^FADlMG JlkFCTORY - GIVE CO-'E IMAGE IF IT E'dSTS 

"US^J PDP.onCHK iREAP IT IF rr ISN'T ,M 

TACOLOCCDEV^AT) ;LOC OF DIRFCTORY 
TACl,»-)EVIADrDEvlAT) ;wHERE USER WANTS 
TACKTACl) ILOC OF DAIA 

TAC,201J(TACl) 
^OP.ADVBFF 



^■'RL 

"CVEI 

•■(SP I 

PLT 

"UShj 

JFCL 

^OPj 



ALREADY 
tT 



IGIVE IT TO HIM 
(ADVANCE BUFFERS 



= DP, 
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5?3 
5(54 
5515 
5''6 
5?i7 
b?8 
5P9 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
5?0 
521 
5?2 
5?3 
524 
5?5 



^0!?752 3072:?0 

000753 263140 

?|0075'I 262140 

000755 6640510 



00!»756 
000757 
000760 
000761 



000 
000 

000 
000 

?. 

000 
000 
000 
000 



762 
763 
764 
765 
766 
767 
770 
771 
772 



6 610 3 
6070"0 
254000 
254000 



201 

5050 
2070 
5501 
2711 
4020 
2510 
4020 
2 5 4 



47 
41 
00 
"6 
?7 
J'l 
42 

'0 

;'0 



001101 
003000 
00^0:11 
04/1000 



00.1040 
004000 

000732 1 
001612' 



;check validity of gtOCK numi^er 
RLKCHk; CAIG BL^.TOBRLK ;LEGAL? 

POPJ PQP, JYES, RETURN 

POP POP. TAG 

TROA lOS.IOBKTL iNf). LIGHT ERKOR BIT 



J INPUT BLOCK 
EOF: TLO 
tlnini 

JK^T 

JkST 



0000 

0001 
0001 
0020 
00510 

7777 

000 
0000 

0730' 



- END OF FILE 

IDS, ioe:n:i 

lOS.HMPMnD 

sTHins 

"MPECF 



SLIGHT EOF BIT 



IGIVE UP CONTROL IF TUMP-MODE 



;ifEf<0 USER'S CORE ON SAVE-MOnE INPUT 

2ERC0R: ^'OVEI TAC , jOqonT (PROG) i?ERO CORE 

hRLI TACiKTAC) 

«OVSS TAC iBLT POINTER 

MKR? TACl,D'^PLST(nEVDAT) ;T0P CELL TO £ERO (-175) 

AGDI TACl,(PROG) IRELOCATE To USER AREA 

":£T2w -KTAC) l^fFRCi 

^LT TAC, ( TACl) 

<:iTi" USRQTT IQOT IS KEPT IN PROTECTED PART 

JHST llIN 
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5?6 
527 
5?8 
5?9 
530 
531 
532 
533 

53 4 
536 
536 
537 
538 
539 
540 
541 
542 
543 
544 

545 
546 

54 7 
548 
549 
'550 
551 
552 
553 
554 



00B773 
00^774 



l?'0e!775 
000776 



000777 
001000 
001001 
001002 
001003 
001004 
001005 
001006 
001007 
001010 

001011 
001012 
001012 
001013 
001014 
001015 
001016 
001017 

001020 

001021 



;dump mooe output 

260140 000401' OMPOi PUShJ PDP.nlRCHK 

IFN CPBIT. < 

5507!'6 000016 HRR? AC2 . OBlK ( DEvnAT ) 

> 

260140 001070' nuSHJ PDP.DMPSET 

255000 000000 JFCL 



iMAKF Sure directory is in core 



ISET DUMP-MooE pointers 



6610 

602 

254 

2601 

5502 

3062 

254 

3222 

2601 

607fe 



00 
00 
00 



00 



00 




0020 
0100 
1010' 

0401' 

0016 

0144 

1052' 

1062' 

3752' 

4000 



26014|J 0M0712' 



603«;"0 
2540?0 
205066 
270040 
251040 
336000 
2540'!0 
621000 



004000 

001130' 

000010 

002104' 

002076' 

001677' 

001445 ' 

000200 



iOUTPUT iiun 



UOUT: 



U0UT2! 



TLO 

TRNE 

JRSl 

puShj 

MRRZ 

CAIN 

JRST 

JUMPE 

ruSHJ 

TLNN 



FILBUF! 
DTOCHK: 



lOS, 10 

lOS.UDSO INON STANDARD? 

II0UT2 lYES 

PDP.DIRCMK (NO. MAKE SURE DIRECTORY IS IN CORE 

BLK.OBUKtOEvnAT) 

RLK.OIRSLK ICHECK IF WRITING DIRECTORY 

C0R2MM JYES, WRITE CORE IMAGE 

FSLK.FAKAOV IDONT WRITE IF NO BLOCK GIVEN 

POP.RLKCHK ICHECK FOR LEGAL BLOCK 

lOS.nMPMOD lALREADY HAVE CONTROL IF DUMP-MODE 



PUShj PDP.GETOT 



<GET DEC TAPE CONTROLLER 



TINE IDS.DMPMOD lOUMP MODE? 

JRST DMPFIL lYES. FILL BUFFER FROM LIST 

MOVSI TAC,fflDEVOAD(nEVDAT) .'LOCATION OF BUFFER 

ADO TACCXWD l.BUF};SET TO STORE IN MONITOR BUFFER 

PLT TAC,PUF*177 j GO BLT IT 

SKIPN PUF JGIVE UP TAPE IF 

JRST THRUTP )N0 BUFFER TO OUTPUT 

TL? lOS.NOLI'JK lASSUME A LINK IS GIVEN 



DTCSRN 



555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

571 

575 

576 

577 

578 
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l»010?2 
001023 
^011424 
f0ia25 
C01026 
P'01027 
001030 
001031 
P01032 
001033 
("01034 
f"01035 
001036 
f"01037 
001040 
f01041 
001042 
001043 
001044 



6020'?0 

2540?0 

574200 

3212''0 

3262''0 

6230(?:0 

2540,70 

260140 

6610C-0 

5062?'0 

?004!'6 

137400 

550406 

5422f.6 

200200 

260140 

334200 

550206 

260140 



000100 

001043' 

001677' 

001050' 

001033' 

020000 

001033' 

000611' 

000200 
001677' 

000013 
002105' 
000016 
000016 

000010 

000536' 
000010 
000016 
000760' 



OUFULLI 



OUCOUP: 



OUTBLK; 



0UTBL2! 



TRNE 

JRST 

HLPE 

,JUMPL 

JUMPN 

tl7l 

JRST 

PUShj 

^LO 

HRLM 

■^OVE 

DPS 

HRRi 

HRRi-i 

MOVE 

pushj 

SKIPA 

HRR^ 

PUSHJ 



rOS.iJDSD 

0UTBL2 

BLK.flUF 

PLK.iSTBLK 

PLK.OUTBLK 

I0S,DMOCLS 

OUTBLK 

PDP.USRFRE 

IOS.mOlI'^IK 

RLK.SUF 



001045 2601')0 

001046 200170 

001047 254000 



0012501 WRTBL>^! PUSNJ 
002106' MOVE 

001202' jRKT 



INON-STAMDARn? 

lYES. NO FILF-STRUCTUREO OPERATIO.VS 

I IS IT? 

lYES. - LAST BLOCK OF FILE 

I IE NQN-0 - YES 

;no. LAST Block of a dump file? 

lYES. LINK MUST STAY 
/COMPUTE NEXT BLOCK 

iTHis Block mot linkfo 

;SAVE LiNiK \h 1ST wQRO OF BLOCK 
TEM.FSTBLKtDEVOAT) ;ST0RE 1ST BLOCK OF FILE IN WORD 

tem, [point 10,puf,27] 

tem.dblktoev^at) ;block to write now 

rlk,oblk(devdat) ;block to write next 

blk.tem 

pdp.markor shark block taken in directory 

BLK.TEM 

PLK,OBLK(DEvnAT) 

PDP.STOIOS 



PPP.FNOBLK IGO SEARCH FOR BLOCK 
TACl.CPLKO 00,7003 ;HERE WE ARE - GO WRITE 



RDWRT 



DTCSRN 
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579 
5f>0 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 



001050 
^01051 



f01052 
001^553 
001 1^5 4 
001^5 5 
001056 
001057 
00106^ 
001061 
001062 
001063 
00106 4 
001065 
001066 
001067 



2012i'0 
2540'?0 



201066 
506041 
540046 
2011f'l 
251042 
6610^0 
205100 
4 3 5 1 1? 6 
6270f0 
260140 
?550?0 
62ie?'0 
4020?6 
2540?0 



000000 

001033' 



000010 

000001 

000014 
017 7 
000000 
003400 
400000 
0001304 
004000 
000000 
000000 
000200 
000016 
001044 ' 



iWRITE LAST RUQCK 
LSTriLM ^'OVEI SLK,0 
JRST CUTBLK 



ILINK=0 

(GCI WRITE LAST fSLOCK 



TRYING TO «RIT£ DIRECTORY - STORE I ^J CORE 



C0R2HM! 



MOVE I 

HRLI 

HhR 

>^OVEI 

RLT 

tlo 
^ovsi 

1RM 
Tl?\ 

puShj 

JFCL 
TL2 
SlT£" 
JKST 



SWHERE TO PUT I" 



TAC,?DEVnAD(nEVOAT) IWhEHE IT iS 

TACKTAC) 

TACCLOCIDEVOAT) 

TACl,177(TAC) 

TAC, (TACl) 

lOS.CHNGOR ISEMEMBER To WRITE IT OUT 

TACl, 400000 

TACl,OFVMDD(OEVOAT) IDIR, IS NOW INPCORE 

lOS.DMPMOD 

PDP.AOVBFE lAOVANCE BUFFERS 



lOS.NOLHK 

OaLK(DEVnAT) 

STOICS 



(DIRECTORY RLOCK IS NOT LINKED 
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DTA551 A.WACHS/TW/RCC 01 JUN 69 V012 

598 ISET UP POINTERS AND STUFF FOR OUMP-MOOE 

599 001070 661000 004000 DMPSFT! TLO lOS.DMPMOO INO, LIGHT BIT 

600 001071 260140 000712' PUSHJ PDP.GETOT (GET CONTROL 

601 001072 5056P0 000007 HRLI UUO.PROG 

6U2 001073 260140 000000 PUSHJ PDP.COMCHK ICHECK VALIDITY OF LIST 

603 001074 254000 001614' JRST SVADER ING, GIVE AQRESS ERROR 

604 001075 336060 000014 SKIPN TACSUUO lOK. NULL LIST? 

605 001076 254000 001104' jRST DMPTSl lYES, RETUR^^ 

606 IFN CPBiTt < 

607 001077 60201^0 000100 TRNE lOS.UDSD INON-STO DUMP MODE? 

608 0011(10 364240 001106' SOJA OAT.TOUSER lYES. GO 00 DIRECT I/O 
6PI9 > 

610 !?I01101 3700H0 000014 0MPST2! SOS UUO |N0. SAVE START OF LIST (-1) 

611 001102 20261^6 000020 MOVEM UUO , DMPLST ( DEVDAT ) 

612 001103 254000 000473' JRST CPOPJl 
613 

614 001104 262140 000001 DMPTSl: POP PDP.TAC 

615 001105 254000 001457' JRST THRUTD 
616 

617 

618 IFN CPBIT, < 

619 IHERE TO START DUMP-MODE INTO USER AREA DIRECTLY 

620 001106 322700 001636' TOUSERs JUMPE AC2,NO8LK0 (CANT READ BLK B IN NON-STO DUMP m6DE 

621 001107 240240 777771 ASH DAT, -7 INUMBER OF WRDS IN LIST /200 

622 001110 350000 000005 AOS DAT 

623 001111 202240 001672' MOVEM DAT.BLKCNT ISAVE TO UPDATE POSITION 

624 001112 201620 000014 MOVEI UU0,9UU0 JREAL ADDRESS OF LIST 

625 001113 202600 001673' MOVEM UUO.USPNTR iSAVE IT 

626 001114 202600 001674' MOVEM UUO.SVPNTR 

627 001115 271047 000000 ADDI TAC,(PROG) JRELOCATE ADDRESS OF 1ST lOWO 

628 001116 202040 001660' MOVEM TACPNTR JAND SAVE IT 

629 001117 200040 002107' MOVE TAC.tJSR DMPADV] )SET UP LOC FOR WHEN 

630 001120 202040 000000 MOVEM TACDCLOCl IIOWD IS EXHAUSTED 

631 001121 552340 001675' HRR2M PROG.AORPRG ISAVE JUST ADDRESS OF PROG 

632 001122 661000 040000 TLO lOS.NOBUF IINDICATE DIRECTLY TO USER 

633 001123 256023 000001 XCT SiKPDP) ITURN ON/OFF 10 

634 001124 607000 000020 TLNN IDS, ID 

635 001125 254000 001103' JRST CPOPJl (READING - CONTINUE 

636 001126 262140 000001 POP POP, TAG (WRITING - THIS WILL SAVE LOTS OF TIME 

637 001127 2540710 001043' JRST 0UTBL2 

638 > 
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001130 205100 777601 OMPFIL: 



639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 001140 552100 001677' 



IFILL OUTPUT BUFFER FROM LIST 



658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
691 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 



001131 
001132 
001133 
001134 
001135 
001136 
001137 

001140 



260140 
254000 
200401 
202402 
252100 
253040 
254000 



001157' 

001140' 

000000 

001700' 

001150' 

001133' 

001131' 



DMPFLBl 
DMPFlA! 



DMPOTH: 



MOVSI TAC1,-177 

IFF CPBIT. < 

TRNE IOS.UDSD 

SUB TACljONEONE 

PUSHJ PDP.NXTCOM 

JRST nUPOTH 

MOVE TEM,(TAC) 

MOVEM TEM,BUF+1(TAC1) 

AOBJP TACl.DMPOVR 

AOBJNI TAC,.-3 

JRST DMPFLB 



IFE CPBIT, < 
TRNN lOS.UDSD 

HRRZM TACl.BUF 



1200 DATA WORDS IF NON-STANDARD 

IGET NEXT COMMAND 

lENO OF LIST 

IGET NEXT WORD 

I INTO BUFFER 

I BUFFER FULL IF GOES 

IGET NEXT WORD FROM COMMAND 

IGET NEXT COMMAND 



001141 
001142 
001143 
001144 
001145 
001146 
001147 



001150 
001151 
001152 
001153 
001154 



001155 
001156 



001157 
001160 
001161 
001162 
001163 
001164 
001165 
001166 
001167 



402002 
551102 
303100 
254000 
505102 
251100 
254000 



253040 
260140 
201040 
202046 
201040 



202040 
254000 



336006 
254000 
354046 
542046 
200060 
322040 
327040 
271047 
344040 



001700' 
001701' 

002076' 

001022' 

777777 

002076' 

001022' 



SETZM bUF + KTACI) 



HRRZI TAC1,BUF*2(TAC1) 

CAILE TAC1,BUF*177 

JRST OUFULL 

HRLI TACl.-KTACl) 

BLT TAC1,BUF*177 

JRST OUFULL 



ILIST Ran OUT SAVE WORD COUNT 

lEERO REST OF BUFFER 

IJUST ZERO 1 WORD IF AT TOP 



[••♦•TEST IF TOP OF BUFFER 
INOW WRITE BUFFER 



JBUFFER FULL BEFORE END OF COMMAND 



001153' DMPOVKl AOBJN TAC,.+3 



001157' 
000000 
000021 
000177 



001677' 
001022' 



PUSHJ PDP.NXTCOM 



MOVEI 
MOVEM 

DMPOVAl MOVEI 
IFE 
TRNN 

> 

MOVEM 
JRST 



TAC,0 

TACSVDWRDfDEVDAT) 

TAC,177 

CPBIT, < 

lOS.UDSD 



IWAS THAT LAST WORD OF COMMAND? 
lYES. GET NEXT 



iNO, SAVE REMAINDER OF COMMAND 



TACBUF 

OUFULL 



IWD CNT =177 

IGO WRITE PART OF STUFF 



IGET NEXT COMMAND FROM LIST 



000020 NXTCOMl SKIPN OMPLST ( DEVDAT ) lEND OF COMMANDS? 



001170' 

000020 

000020 

000001 

001170' 

001162' 

000000 

001125' 



NXTCMll 



JRST 

AOSA 

HRRM 

MOVE 

JUMPF 

JUMPG 

ADDI 

AOJA 



NXTCM2 lYES. RETURN 

TAC,DMPLST(DEVOAT) IGET NEXT COMMAND 

TACDMPlSTCDEVDAT) ISTORE GO-TO ADDRESS 

TACdTAC IGET COMMAND 

TAC,NXTCM2 lEND OF LIST 

TACNXTCMl IGO-TO WORD 

TAC,(PROG) IREAL COMMAND - ADD RELOCATION 



TAC.CPOPJl 



lAND RETURN 



001170 402006 000021 



lEND OF nUMP-MODE LIST 

NXTCM2! SETZM SVDWRD { DEVDAT ) IZERO POINTERS 
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692 
693 
694 
695 
696 
697 
69B 



P01171 
001172 



402006 
263140 



000020 
000000 



SET2M 
POPJ 



DMPLST(DEVDAT,) 
POP. 



001173 332046 000021 DMPFlCi SKIPE TAC, SVDWRD<DEV0AT ) IIS THERE ANOTHER COMMAND 

001174 254000 001133> JRST DMPFLA lYES. GET IT 

001175 254000 001551' JRST DMPTH2 INO. THROUGH 
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699 
700 
701 
702 
703 
701 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 

718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 



000210 
000214 



DTC=210 
DTS=214 



001176 
001177 

001200 

001201 



001202 
001203 
001204 
001205 
001206 
001207 
001210 
001211 



001212 
001213 
001214 
001215 
001216 
001217 
001220 
001221 
001222 
001223 
001224 
001225 



001226 
001227 

001230 
001231 
001232 
001233 



607000 
260140 

260140 
200100 



261140 
502100 
505040 
607000 
334040 
540046 
370000 



202040 
434100 
202100 
262140 
720200 
700600 
505040 
700600 
721201 
546040 
700600 
263140 



000000 
720000 
254000 
370000 
370000 
254520 



no INTERFACE 
004000 REAOBF) TLNN 
000712' PUSHJ 



IQS.DMPMOD 
PDP.GETDT 



IHAVE CONTROL IF DUMP-MODE 
IGET DT CONTROL 



001250' REAOBC! 
002110' 



PUSHJ 
MOVE 



POP.FNDBLK (SEARCH FOR RIGHT BLOCK 
TACl.CBLKI DC. 300] {FOUND IT - START READING 



iHERE WITH BLK=Bl0CK NUMBER, TAC1«FUNCTI ON . START SEARCH 



000001 RDWRT! PUSH 



POP.TAC 



001227' 

777600 

010000 

001654' 

000014 

000001 



001211 607000 040000 



001660' 

001667' 

001670' 

000001 

000000 

000000 

000037 

000000 

000000 

001357' 

000000 

000000 



000000 

001660' 

001234' 

001660' 

001660' 

001226' 



lOGO) 



HLLM 

HRLI 

TLNN 

SKIPA 

HRR 

SOS 

IFN 

TLNN 

MOVEM 

OR 

MOVEM 

POP 

CONO 

CONO 

HRLI 

CONO 

CONO 

HLRM 

CONO 

POPJ 



)BLKi or BLKO 



TACl, lOWD 

TAC,-200 

lOS.RWDIR IWRITING (READING) DIRECT? 

TAC.BFPNTR INO. INTO BUF 

TAC,DLOC{OEVnAT) lYES. LOG OF DIRECTORY 

TAC INO, SET FOR FORWARD READ 

CPBIT, < 



I0S,N0BUF 

TACPNTR 

TACl, UNIT 

TACl.COMAND 

PDP.TAC 

DCDCIN 

PI.DCON 

TAC, 37 

PI.PIOFF 

DTC, (TAC) 

TAC,OTCINT 

PI.PION 

PDP, 



(POINTER ALREADY SET UP IF DIRECT ID 

(POINTER 

(UNIT AND PI CHAN 

(SAVE COMMAND FOR READ OR WRITE 

(RESTORE SEARCH COMMAND 

(SET DATA CONTROL TO READ 

(TURN ON DC PI CHANNEL 



(START TAPE MOVING 



(DISMISS INTERRUPT 



(HERE FOR ANY DATA WORD WITH TAPE IN REVERSE 



RVERSi 

lOWD! 





BLKI 

JRST 

SOS 

SOS 

JEN 



DCPNTR 

RVTHRU 

PNTR 

PNTR 

9RVERS 



(READ (WRITE) A WORD 
(POINTER RAN OUT 
(POINTER HAS TO BACK UP 

(DISMISS THE INTERRUPT 
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741 
742 
743 

744 

745 

746 
747 

748 
749 

7'iK 
751 

7=;z 

7^,3 
754 
755 
7=56 
7^7 



iHEUE VU<-\ Pni'^TER HUNS CUT IN REVERSE 
?01234 2640r'Z ;'Z124i' RVTHRUi JSP SHUTON iSMUT DOWN DATA CONTROL 

001235 2545^0 7i^i;56' jif, «RVERS POISmSS 

;hfi^E Whr\ POINTER RUNS OUT rflRWARn 

5»01236 !»0Ke-'0 HKv'ei'i! otathk; " 

i?01237 J64f/0 !?ei241' JSP SHUT:iN iSHUT DOWN DATA CONTROL 

P'01240 264t,20 0012;<6' JEM «uTaTHR JJISMISS 



301241 
("01242 
001243 
("01244 
001245 
("01246 
001247 



B (' 
72P3:'0 
4 760.»0 
721340 
7202'.'0 
7006?0 
254020 



00?0?0 

0i;!0!^0 

001671' 

00'5400 

000000 

0000(30 

001241' 



SHIJTDN ! 



7 

f-ONS? 

•^ETQ^' 

rot.'Si 

COMO 
f-C'C 
JPST 



r^c.i?000 

ERRELC; 

nTC, 40=1 
nCi0 

PI .Df'OFE 
H'SNUTDN 



iDATA MISSED? 

lYES. SET SWITCH 

)REA!5ING7 

iYES, TURN OEE DC 

ITURN DEE DC PI 



DTCSBN 
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7'!8 








759 








7fi0 








761 


B01250 


552200 


001663 


762 


("01251 


402000 


001665 


763' 


!?Z1252 


402000 


001671 


7f,4 


C!01 253 


135040 


000000 


765 


("01254 


242040 


000003 


766 


C01255 


660040 


000000 


767 


C0125b 


202040 


001667 


768 


5501257 


200400 


002111 


769 


001260 


202400 


00S1000 


770 


001261 


200400 


002112' 


771 








772 


?01262 


607000 


4 B 


773 








774 


001263 


202400 


001120' 


775 


001264 


7213'0 


020000 


776 


001265 


254t;00 


001277' 


777 


001266 


660040 


323200 


778 


001267 


607000 


001000 


779 


001270 


660040 


010000 


730 


001271 






7S1 


001271 


261140 


000000 


782 


001272 


621000 


737777 


7P3 


001273 


512000 


001676' 


784 
785 
786 


001274 


262140 


000000 


001275 


2020r.6 


000002 


787 


001276 


263140 


000000 


788 








7R9 








79H 








791 


001277 


7213'0 


013000 


792 


'01300 


66 00 4 


017'000 


793 


001301 


660040 


32?'200 


794 


001302 


254k:10 


001271' 



iCOME HERE TO START PEARING PLOCK NUMBER!^ 
EXTERN PION.PIDFF 



ENHBL^l 



FN0BL3; 



^ET;m 

SETHM 

LDB 

LSH 

THO 

MOVE" 

MOVE 

MOVE'' 

MOVE 

IFN 

TLNN 

MOVEM 
CONS? 
JRST 

TRO 

TLNN 

TRO 

IFN 

PUSH 

TL2 

MLL2M 

POP 

MOVEM 
POPj 



PLKiKLOCK 

ERRCNT 

EhRFLG 

TACPUNIT 

TAG, 3 

TACGTCCHN 

TAG, UNI T 



IBLOCK kE'RE LOOKING FOR 

IRESET DATA MISSED FLAG 
!GET UNIT NUMBER 
iPOSITION IT 
iAOD PI CHANNEL 
iSAVE 



TEM.CJSR SRC"] ISET UP INTERRUPT CELLS 

TEM.OCLOC 

TEM.CJSR otathp: 

CHRIT, < 

IDS.XOBuF IDCLOCI ALREADY SET UP IF DIRECT 10 



TEM.OCLQCI 
PTC, 20000 
FNDBL4 

TAC, 323200 
lOS.RVERSE 
TAC, 10000 
GPRIT, < 
PDP, lOS 
lOS.NOBUFC 
IOS,nIRCTN 
"DP, IDS 



IFOR FORWARD DATA OPERATIONS 
! IS TAPE ALREADY MOVING? 
;YES 

)N0. SET READ RLK NOS,, START DELAY 

(MOVE Tape backwards? 

(YES 



:SET UP DIRCTN NON-0 IF niRECT 10 



IOS,dEvIOS(OFVDAT) iRESTORE lOS IN CORE 
POP. lAND EX[T 



!HERE TO INITIATE READ OF A TAPE THAT IS MOVING ALREADY 
FNDBL4! CONS? OTC, 10000 (GOING BACKWARDS? 
TRO TAC, 10000 lYES 

TftO TAC, 320200 ISET TO READ BLOCKS, NO DELAY 
JRST FNDBL3 IGO TELL CONTROL 



DTCSRN 
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795 
796 
797 
798 
799 
8(50 
8J11 
8i?2 
8?!3 
874 
8f5 

a?7 
a!»8 

8H9 
81U 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
B25 
826 
827 
828 
829 
830 
831 
83 2 
833 
834 



!"013f3 
f)013C4 
<!"ilifl3 
001306 

?313r'7 
?05310 

C01311 
001312 
001313 
001314 
001315 
001316 
001317 
001320 
001321 
001322 



001323 
001324 
001325 
001326 
"^01327 
001330 
001331 
001332 
001333 
001334 
001335 



001336 
201337 



000000 
202040 
720040 
274040 

3320!'0 
721340 

322040 
540040 
7213'."0 
650040 
331000 
640040 
721201 
720230 
200040 
254520 



000000 
202040 
354040 
542040 
336060 
254000 
270040 
327040 
202040 
200040 
254520 



2640'.i0 
2540i-'0 



000000 
001661' 
000001 
001663' 

001676' 
010000 

001340' 
001667' 

010000 

002113' 

000001 

012000 

320200 

001216' 

001661' 

001303' 



MNTEHRUPT HERE TO READ A RLPCK MUMBER 



SRCH: 



0000 

1661' 

1673' 

1673' 

0001 

1336' 

1675' 

1326' 

1660' 

1661' 

1323' 



SRCHXT ; 





MOVEM 

DATA! 

■SUB 

IFN 

SKIPE 

CONSO 

JUMPF 

HRR 

COMSH 

TDC 

SKIPU 

TRO 

COMO 

COivJO 

MOVE 

JEN 



TAC, TE*^? 
OCiTAC 
TACRLnCK 
CPBlT, < 
OIRCTN 
DTC, 10001" 



ISAVE TaC 

JREAD A BLOCK NUMBER 

i;PRESENT BLOCK - TARGET BLOCK 

IIF DIRECT 10 

IMUST READ DATA FORWARD 



TAC, FOUND ITHERE IF HERO 

TAC, UNIT INO. SET UP READ OF NEXT BLOCK 

DTC, 10000 (GOING IN REVERSE 

TACCXWO 400000,10000] JYES, SWITCH TURN-AROUND TEST 

TAC ITURN AROUND? 

TAC, 12000 lYES. SWITCH OIR., TURN AROUND DELAY 

nTC,320200(TAC))TELL CONTROL 

DC.DCIN ITELL DATA CONTROL ALSO 

TACTEMP IRESET TAAC 

'^SRCH lAND EXIT THE INTERRUPT 



IFN CPBIT, < 
IHERE WHEN DUMP-MODE POINTER RUNS OUT 
DMPADVi 



801241' 
3 013 34' 



DMPAVl! 



DMPAV2! 



nMPAV3! 



MOVEM 

AOSA 

HRRM 

SKIPW 

JHST 

ADD 

JUMpr, 

MOVE*' 

MOVE 

JEN 



JSR 
JRST 



TACTEMP 

TACUSPNTR 

TACUSPNTR 

TAC,«TAC 

GMPAV3 

TACADRPRG 

TACOMPAVl 

TACPNTR 

TACTEMP 

SDMPaDV 



SHUTON 
DMPAV2 



(ADVANCE LOC OF POINTER 

(END OF LIST? 
lYES. STOP TAPE 
lADD RELOCATION 

(NEW POINTER 
IRESTDRE TAG 



(SHUT DOWN TAPE 

(RESTORE TAC AND EXIT THE INTERRUPT 



OfC-SHN 



8:^5 
63(1 
8J7 
33d 
839 
a-IB 
841 
342 
843 
844 
845 
846 
847 
348 
849 
Bbli 
851 
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i'ai34a 

l'01341 
{"01342 
C01343 
Pai344 
['01345 

7^1346 

eai347 

!"0135l3 

{"01351 
?'01352 
001353 
R01354 
001355 
00135b 



721 

254 

2 

302 

200 

602 

720 

721 

254 



3''0 

0:;i0 
040 

040 
040 
Z40 
2'"0 
2-11 

0:i0 



201040 
436040 
201040 
272040 
200040 
254ii,-0 



017000 

001351' 

001227' 

001260' 

001670' 

00r'4c'0 

000000 

3600'^0 

001321' 

0100.''0 

001670' 

000177 

001660' 

302114' 

001343' 



IHEHF WHF^ CORRECT BLOCK MUMI'-EP IS FOUND 



FOUNn i 



FNDl! 



!ORVPS : 



JRST 
■"CVE" 

^cve; 

TRMt 
roMo 
roKo 

JRST 
"OVEI 

PRu 

"OVEI 

4U0'4 

MOVE 
JR?T 



nic, i000(» 

IDRVRS 
T A C , I w (J 
TACnCLOC 

taccomano 

TAC, 40? 

nc.DCOuT 

DTC,3600r'0(TAC) 

spchvt 



;G0I\G FDRWARD? 

!N0 

nZS, SET BtKI/BLKO INTO P! LOC 

IPICK UP READ OR WRITE COMMAND 
JW^ITE? 

;yes, Condition data control 
(start data flo»( 
)and leave 



TAC, 100'J'' iSFT 10 FOR REVERSE 

TAC, C0'1A\iD 

TAC, 177 

TACPNTR IREAO FROM T3P OF BUFFFR DOWN 

TACCJSR RVE"S] IH4VE TO DO SOME STUFF AT INTERRUPT 

FNDl 



DTCSBN 



852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 

see 

881 
382 
8S3 
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5-01357 
001360 
001361 
001362 
001363 
001364 
001365 
001366 
001367 
001370 
001371 
001372 
001373 
001374 
001375 
001376 



001377 

001400 
001401 
001402 
001403 

001404 
001405 
001406 
001407 
001410 
001411 
001412 



721740 
2540?!e 
721340 
2540H0 
7213/'0 
254000 
720200 
2640''0 
2003z!0 
200006 
200340 
7217:«0 
721700 
254000 
3320,?0 
254000 



6030?0 
254000 
607000 
25401*0 
135040 

202B46 
623000 
260140 
623000 
254000 
603000 
254000 



000037 

001360' 

040000 

001522' 

004000 

0015101 

000000 

000000 

001656' 

000002 

001657' 

000001 

000116 

001616' 

001671' 

001616' 



004 000 

001567' 

002000 

001405' 

002105' 

000015 

000001 

000000 

012000 

001445' 

000020 

001467' 



MMTEHRUPT HERE rOR FLAG CHAMNEL 



DTCIM 



DTCINTi COMSn 
JRST 
rOMSO 
jRST 
CO'JS? 
JRST 
rONO 
JSR 

MOVE 

MOVE 

CONS? 

COMS? 

JRST 

SKIPE 

JRST 



DTS,3 7 

DTC, 40000 
9UKNUM 
DTC, 4000 
T I M I N T 

nc,0 

OTCSAV 

DEVDAT.USEWRD 
lOS.OEVIOStDEVOAT) 
PROG.USEPRG 



(INTERRUPT FOR DECTAPE7 
INO. GO AWAY 
lYES, JOB DONE ENABLED? 
)N0. READING BLOCK NUMBERS 
lYES. TIME FLAG ENABLED? 

(YES, CHECK IF THIS IS A TIME INtERRUPT 
INO. TURN OFF DATA CONTROL 
(SAVE ACS 
(RESTORE DEVDAT 
(AND lOS 



;OATA WAS READ 

DTClN2j TLNE 

■ JRST 

TlN:\' 

JRST 

LDS 

i^OVEM 

TLHE 

PUSHJ 

tlze 

JRST 
TLNE 
JRST 



T S , 1 

DTS,116 

ERRS 

ERRFLG 

ERRS 

IN OR WRITTEN 
lOS.DMPMOD 
DMPTHR 
IQS,SINGL 
,*3 
TAC, [POINT 1 



(JOB DONE LIT? 
(AND NO ERRORS? 
(NO. ERROR 
(DATA HISSED? 
(YES, TOO BAD 



IT FINE 
(DUMP 
(YES, 



MODE? 

GO ELSEWHERE 



BUF,27: (GET tST BLOCK NO, IF READ' 
ICAME FROM LOOKUP 
TACi IBLKtDEV^AT) (STORE IN DDB 
IDS, lOW (NO, IN 10 WAIT? 

PDP.SETIOD lYES. TAKE OUT OF WAIT 
lOS.SINGL+RWDlR (DIRECTORY OPERATION? 
THRUTP (YES, LEAVE 

IDS, 10 (WRITING? 

OUTHRU (YES 
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884 EXTERN jBTSTSiPjOBN 

885 

886 

887 ;HEflE ON END OF AN INPUT BLOCK 

888 1?|81413 561100 000177 MRROI TAC1,177 )MASK OUT IST-BLK DATA 

889 001414 6066)00 000100 TRNN lOS.UQSD (UNLESS !N NON-STD 
690 001415 406100 001677' ANOM TACl.BUF 

391 001416 201066 000007 MOVEI TAC,9QEV I AO ( OEVDAT ) iWHERE TO STORE BLOCK 

892 001417 270040 002115' ADD TACCXWD BUFil3jFR0M BUF TO THERE 

893 001420 201101 000177 MOVEI TACl,l77tTAC) 

894 001421 251042 000000 BLT TAC,(TaC1) (TRANSFER IT 

895 001422 5542P0 001677' HLR2 BLK.RUF INEXT BLOCK TO READ 

896 001423 6020110 0001K0 TRNE lOS.UDSD 

897 001424 3542!?6 000015 AOSA BLK , I BLK ( DEVOAT ) iCONTIGUOUS BLOCKS IF NON-STD 

898 001425 542236 000015 HRRM RLK , IBLK (DEVOAT ) (SAVE IN DOS 

899 001426 60200B 700000 TRNE I OS , JOOTER* lODERR* 10 1 MPM (WAS THERE AN INPUT ERROR? 
91,10 001427 2540t«0 001440' JRST THRUIN (YES, OONT ADVANCE BUFFERS 

901 fai430 260140 000747' PUSHJ PDP.A0V8FF (GET NEXT BUFFER 

902 001431 254000 001440' JRST THRUIN (EMPTY BUF NOT AVAILABLE 

903 001432 332000 000004 SKIPE HLK (EXIT IF EOF OR BLOCK TOO LARGE 
9?4 001433 303200 001101 CAILE BLK.TOPBLK (THE ERROR WILL BE CAUGHT ON THE 

905 001434 254000 001440' JRST TriRUIN (UUO LEVEL NEXT TIME AROUND 

906 001435 375000 001664' SOSGE QUANTM (HAS TAPE HAD CHAN LONG ENOUGH? 

907 001436 337000 000713' SKIPG OTREO (YES, ANYONE ELSE WANT IT? 

908 001437 254000 001200' JRST REAQBC (NO. READ NEXT BLOCK 
909 

910 

911 001440 550046 000016 THRUINl HRRE TAC , OBLK ( DEVOAT ) (TAPE ALSO BEING WRITTEN? 

912 001441 326040 001445' JUMPN TACTHRUTP (YES. DQNT CHANGE REVERSE BIT 

913 001442 6210f'0 001000 TLZ ICS.RVERSE (NO, SET lOS BIT TO CORRECT DIRECTION 

914 001443 721300 010000 CONSr" OTC, 10000 

915 001444 661000 001000 TLO lOS.RVERSE 



DTCS^IM 



■ NEW FORklAT DECTAPE SERVICE FOR 551 rpnP-6) 
nTA551 A,WACHS/TW/RCC 01 JUN 69 VCll? 



MACRO, V36 19106 4-JUN-69 PAGE 39 



916 








;here I 


WHFN TAPE 


IS DONE 


917 


001445 


721340 


020000 


THRUTP 


! CONSO 


DTC, 20000 


918 


001446 


254000 


001457' 




JRST 


THRUTD 


919 


001447 


200040 


001667' 




^«OVE 


TACUNI T 


920 


001450 


721300 


010000 




C0NS2 


DTC, 10000 


9?.l 


001451 


660040 


010000 




TRO 


TAC, 10000 


922 
9?3 


001452 


721201 


245000 




CONO 


DTC,245000(TAC) 


924 


001453 


371000 


000000 


THRUTAl 


1 ?OSl 


DCREQ 


925 


001454 


476000 


000000 




SETOH 


DCAVAL 


926 


001455 


621000 


044000 




TLH 


I OS, DMPMOO + NOBU 


927 


001456 


254000 


000000 




JRST 


CLRACT iRESET 


928 














929 


001457 


260140 


001453' 


THRUTD: 


PUSHJ 


PDP.THRUTA 


930 


001460 


371000 


001436' 




SOSl 


DTREQ 


931 


001461 


4760[<0 


000000 




SETQM 


OTAVAL 


932 


001462 


720200 


000000 




CONO 


DC.0 


933 


001463 


7006!'0 


001246' 




CONO 


PI.DCOFF 


93') 


001464 


721200 


000000 




CONO 


nlCB 


935 


001465 


513(500 


001357' 




HLU^S 


DTCINT 


936 


001466 


263140 


000000 




POPJ 


POP, 



;0N INTERRUPT LEVEL? 

INC. TAPE IS NOT MOVING 

ISET TO STOP TAPE 

IGOING REVERSE? 

lYES 

ISTOP TAPE. KITH TIME FLAG INTERRUf>T ON 

lENABLE JOB DONE AS A FLAG FOR OTCJNT 
(GIVE UP DATA CONTROL (DECTAPE CONTROL 
;WILL BE GIVEN UP AT NEXT INTERRUf'T) 



IGIVE UP DATA CONTROL 
IGIVE UP DECTAPE CONTROL 

(SHUT OFF DATA CONTROL 

lANO TURN OFF ITS PI CHANNEL 

JSHUT DOWN DATA CONTROL 



lANO LEAVE 
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937 FXTERN CLOCK 
938 

939 (HERE ON EN)D OF OUTPUT BLOCK 

940 I?ai467 26014B 001i163' QUTHRU! PUShJ PDPiADVBFE IGET NEXT BUFFER 

941 K0147iJ 254t)Sj(i 001445' JHST THRUTP rgOT FULL 

942 001471 32221^0 001445' JU^PE BLK.TriRUTP ;DONE IF BLK = 

943 001472 5502l'6 000016 HHRZ RLK, OBLK ( OEVHAT ) ;NEXT BLOCK TO WRITE 

944 001473 3032C'B 00U:'l CAILF RLK.TOPBLK ILEGAL7 

945 ?01474 2546)?!^. 001445' JRST THRUTP , NO . CATCH ERROR ON UUO LEVEL 

946 ("01475 3750.10 001664' SOSGF QUANTM r YES , HAD CHAN LONG ENOUGH? 

947 001476 3370(10 0014«0' SKIPG DTREO lAND SOMEONE ELSE WANT IT? 

948 001477 2540ni! 001012' jRST FILBUF inO. GO WRITE NEXT SLOCK 

949 001500 2540r^0 001445' JRST THRUTP lYES, GIVE UP TAPE 
950 

951 

9'52 iTURN TAPE AROUNn AFTER END-?ONE INTERRUPT 

953 001501 202040 001662' TURN: MOVEM TACTEMPA iSAVE TaC 

954 001502 200040 001667' MOVE TAC, UNIT lUNIT AND CHANNEl 

955 001503 721340 010000 COMSO OTC, 10000 jIN REVERSE? 

956 001504 460040 010000 TRO TAC, 10000 ;N0. NO WILL BE 

957 0015f5 721201 322200 CONO DTC , 322200 ( TAC ) I REAU SLOCK NOS IN OPPOSITE DIRECTION 

958 001506 200040 001662' MOVE TACTEMPA IRESTQRE TAG 

959 0015C7 2545?0 000000 jEN POTCCHL lAND EXIT THE INTERRUPT 
960 

961 001510 721740 000020 TIMINT; CDNSO nTS,20 (TIME FLAG INTERRUPT ON? 

962 001511 254000 001527' jRST SPRIUS )N0. THIS IS A SPURIOUS INTERRUPT 

963 001512 250040 001532' EXCH TACTImreQ IANOTHER TAPE CAN NOT BE 

964 001513 700600 001221' CONO PI.PIOFF ISELECTEO FOR 25 MSEC SO 

965 001514 136040 000000 JOPB TAC, CLOCK IPUT IN A CLOCK REQUEST 

966 001515 700600 001224' CONO PI.PION ITO WAIT FOR 3 TICKS 

967 001516 250040 001532' EXCH TACTIMREQ ISEFORE ALLOWING NEXT USER ON 

968 001517 721200 000000 CONO DTC,0 JSHUT DOWN DTC 

969 001520 513000 001357' HLL2S DTCINT 

970 001521 254520 001507' JEN 9DTCCHL lAND LEAVE 
971 

972 

'73 )HEHE WITH AN INTERRUPT WHiLF SEARCHING FOR qLOCK NUH9FRS 

974 001522 721700 000002 BLKNUM; CONS? nTS,2 lENO ZONF INTERRUPT? 

975 001523 254000 001501' jRST TURN lYES. TURN AROUND 

976 001524 721740 000014 CONSO DTS,14 iNO. ILLEGAL OP OR PARITY ERROR? 

977 001525 254000 001360' JRST DTCINT*! iNO. NOT REALLY A OECTAPE INTERRUPT 

978 001526 254000 001365' JRST DTCINI lYES. GO HANDLE THE FRROR 
979 

980 :HERE on a SPURIOUS OECTAPE INTERRUPT 

981 001527 721240 001662' SPRpjS: CONl DTCTEMPA (READ DTC STATUS BITS 

982 001630 721220 001662' CONO OTC,«TEMPA IGIVE A CONO TO DTC TO CLEAR INTERRUPT 

983 001531 254520 001521' JEN 9DTCCHL lEXIT THE INTERRUPT 
984 

985 001532 001533' 000003 TIMREQ! XWD ,*1,3 IE CLOCK TICKS 

986 001533 371000 001476' SOSl OTREO (ALLOW OTHER JOBS 



OTCSRN 
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987 


caisst 


4760^0 


001461' 


SETOM 


OTAVAL 


988 


(501535 


263140 


00!!0(^B 


POPJ 


POP, 



(TO CET DT CONTROL NOW 
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9fi9 



JCOME HERE QM END OF DUMP OR SAVE MODE BLOCK 
990 001536 SVDMTHi IFN CPBIT, < 

^'l 001536 6030f10 043000 TUNE lOS.NOBUF 

992 (,ai537 2540.0 001561- JRST USDMTH .HANDLE DIFFERENTLY IF DIRECT TO USER 



994 001540 2051«0 777601 MOVSI TACl,-177 

996 
997 
998 s 



IFE CPBIT, < 
TRNE lOS.UUSD 
SUB TACl.ONEONE ISET UP TaCI WITH COUNT 



999 001541 607000 003020 TLNN IDS, ID 

1000 001542 254000 001556' jRST SVOMIN , INPUT FILE 

10«1 001543 550206 003016 HRRZ BLK , OBLK (DEVnAT ) OUTPUT F I LF . NEXT BLOCK 

1002 001544 322200 001550- jUMRf BLK.OMPTHA (LAST BLOCK ^ ^^°" 

^11, IFE CPBIT, < 

i^''f TRNE lOS.UOSO (IF NON-STO MODE 

lgf.1 ^ AO^A OBLK(DEVDAT) IWRITE CONSECUTIVE BLOCKS 

1007 001545 307200 001101 CAIG BLK,T0P8LK ,NOT LAST. LEGAL SLOCK NUMBER? 

1008 001546 263140 000000 poPj POP, ,YES, RETURN 

1010 001547 6600!»0 040000 TRO lOS.JORKTL J SLOCK TOD I jRrtr 

1011 001550 262140 001^001 DMPTHA! POP PDP.TAC 

1032 001551 402006 000021 DMPTH2! SET2M SVDWRD ( DEVDAT J ;2ER0 DUMP-MODF STUFF 

1013 001552 402006 000020 c;ET^M DMPlST ( DEVDAT 

1014 001553 623000 000001 DMPTH3: TL?E lOS.IOW iiN 10 UIATTJ 

1015 001554 260140 001406- PUSHJ POP.SETIOD YES RESTART JOB 

1016 001555 254000 001445' jRST THRUTP «E5'TART JOB 

^'?^? JHERE ON END OF SAVE MODE INPUT BLOCK 

9 001556 5542.0 001677- SVOMIN, hlRH PLK.BUF ,nEXT BLOCK NUMBER 

J^^f IFE CPBIT, < 

:'iil TRME IOS,UOSD )N0N-STANDARD7 

1023 ^ *°SA BLK,IBLK(DEVDAT) ;YES, READ CONSECUTIVE BLOCKS 

^»^^ ^?^"^ '"^^""^ ^^^'^1^ ^^"'^ BLK,iBLK(DEVDAT) jSAVE IN DOB 

1055 001560 254000 001167- jRST CPOPJl <■>«»£• 1 '» uuB 

1026 
1027 

!f?g IFN CPBIT, < 

,„„ iHERE WHEN THROUGH DUMP-MODE DIRECTLY Tn USER 

10.0 001561 20U06 000015 USDMTH, MOVEI TACI , I BLK (DEVDAT ) 

1031 001562 603000 000020 tlNE IDS 10 

B HI isi Es' W -;-'"!°"°"i-..- is^isi^i^"-^ -- «-" 

itIJt M01565 272042 000000 AODM TAG, (TACI) 

1035 001566 254000 001550- JRST DMPTHA (THROUGH 



DTCSRN 



1037 
1038 
1039 
1340 
11341 
1042 
1043 
1044 
1045 
1046 

1047 
1048 
1049 
10S0 

10'51 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
105 9 
1060 
1061 
1062 
1063 
1064 
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001567 
001570 



001571 
001572 
001573 
001574 
001575 
001576 
001577 
001600 
001601 

001602 
001603 
001604 
001605 
001606 
001607 
001610 
001611 



001612 
001613 



'"ERE WHEN THROUr.H DUMP MODE BLOCK 
260140 0015361 DMPTHR: PUSHJ PDP.SVDMTH 
254000 001173' JRST DMPFLC 



lEND OF RLOCK HOUSEKEEPING 
(FILL BUFFER FOR NEXT OUTPUT 



332046 
254000 
260140 
254000 
200402 
2024P1 
2521S>0 
253040 
2540f0 

253040 
260140 
254000 
202046 
3222^0 
307200 
254000 
664000 



000021 

001675' 

001157' 

001551' 

001700' 

000000 

001602' 

001575' 

001573' 

001605 ' 
001157' 

001551' 

000021 

001612' 

001101 

001200' 

040030 



IHERE WHEN THROUGH READING A DUMP-MQOE BLOCK 
DMIFIL: SKIPE TAC,SVOWRD(DEVDAT) ;PARTIAL COMMAND? 



JRST 
DMIFLA! PUShJ 

JRST 
DMIFLBI MOVE 
MOVEM 
AOBJP 
AOBJN 
JRST 



AOBJN 

PUSHJ 

JRST 

MOVE" 

JUMPE 

CAIG 

JRST 

TROA 



DMIFLB 

PDP.NXTCOM 

OMPTHS 

TEM,BUF*1(TAC1) 

TEM,(TAC) 

TACl, .♦3 

TAC, DMIFLB 

DMIFLA 



lYES. CONTINUE 

)N0, GET NEXT COMMAND 

lENO OF LIST - THROUGH 

INEXT DATA WORD 

(GIVE TO USER 

I IF BUFFER IS FULL 

IGET NEXT WORD 

IGET NEXT COMMAND 



RONXT: 



InD':!L, (BUFFER ID FULL. IS COUNT EXACTLY 177J 

PDP.NXTCOM JTHAT COM. IS DONE. GET NEXT 

9';'^TH2 )ENO OF LIST - THROUGH 

TAC.SVDWRDCDEVDAT) ISAVE PARTIAL COMMAND FOR NEXT TIME 

BLK.OMPEOF (IF EOF - LIGHT SIT 

BLK.TOPBLK IBLOCK LEGAL? 

"E^ADSC JGO READ BLOCK NUMBER 

lOS.IOBKTL (LIGHT ERROR BIT 



A,;n,,^„ »o '^°'^ BEFORE ALL DATA IS IN - DUMP MQDE 
660000 020000 DMPEOFI TRO lOS.IOOEND 
2540«'e 001551' JRST 'l^ULiMu 



DMPTH2 



(LIGHT EOF BIT 
(GIVE UP TAPE 
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1065 

1366 

li367 

1068 

1069 

107 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

10»3 



1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 



001614 260140 001551' SVAOE*^! pUShJ 

001615 254t)?0 000000 JRST 



001617 
001620 
001621 
001622 
001623 

001624 
001625 
001626 
001627 



001630 
001631 
001632 
001633 
001634 
?'01635 
001636 
001637 
001640 
001641 
001642 
001643 
001644 
001645 
001546 
001647 
001650 
001651 
001652 
001653 



PDP,TMPTH2 
ADREHR 



001616 350040 



200100 
202100 
2001!»2 
270100 
202100 

721740 
303040 
3340^0 
254000 



721700 
6600^0 
721740 
332000 
560000 
721700 
6600;!a 
5030510 
254000 
607000 
254000 
523000 
260140 
527000 
254000 
260140 
205040 
412046 
135200 
2540^0 



JCOME HEPE OM ERROR 



001655' ERRS: 
001 



1674' 
1673' 

0000 

1675' 
1650' 

0004 
0000 
0000 
1252' 



40S 

IFN 

XOVE 

MOVE^' 

MOVE 

ADD 

UQVE" 



TAC,ERPC^!T 

CPBITf < 

TACl.SVPNTR 

TACliUSPMTR 

TACl, (TACl) 

TACl.ADRPRG 

TACl.PNTR 



DTS,4 
TAC.nTTRY 



CQNSO 
CAIlE 
SKIPA 
JRST FNDBL2 



JPERMANEMT ERROR 



000010 PERMER! 

100000 

000100 

001671' 

200000 

000004 

4000PI0 NOBLK0: 

0040.10 

001557' 

012020 

001377' 

000001 

001554' 

012000 

001445' 

001445' 

400000 

00001^4 

000H00 BDDIR: 

? i^ 



TONS? 

TRn 
roNsn 

SKIPE 
TRO 

cons;" 

TRO 

TLME 

JRST 

TLNN 

JRST 

TL2E 

PUSHJ 

TliH 

JRST 

PUSHJ 

MOVSI 

ANDCAM 

LDR 

JRST 



IGIVE UP COMTROL 
ITYPE ERROR MESSA'SE 



;Bi-'MP COUNT 



IRESET STUFF FOR POSSIBLE DIRECT 10 

I IF ILLEGAL OP - DONT RETRY 
lENOUGH REREADS? 
lYES. PeRHAnFNT error 
iNO. TRY AGAIN 



DTS,10 

lOS, IOGTER 

ITS, 100 

ERRFLG 

lOS, lOOERR 

nTS,4 

lOS, lOIMPM 

lOS.DMPMOO 

DMPTHR 

IDS, IO*RWDIR*SINGL ;READING DATA? 



(PARITY 



IMISSED nATA 

I ILLEGAL OP 

(IF IN DUMP-MODE 

ICONTIMUE WITH REST OF LIST 



DTCIN2 

lOS.IO'J 

PDP.SETIOD 

lOS.RWDIR+SINGL 

THRUTP 

POP. THRUTP 

TAC, 400000 

TACnEVMODCDEVDAT) 



lYES, GIVE BUFFER TO USER 

lOUT OF 10 WAIT 
lOIRECTORY OPERATION? 
INO. RETURN TO USER 
lYES. STOP TAPE 
ISET DIR NOT IN CORE BIT 



BLK.PJOBN 
BADDIR 



ITELL ERRCON THE NUMER OF THE JOB 
IGO PRINT ERROR MESSAGE 



OTCS=!N 


- iMFH FORMAT HECTApr SERVICF FUR 


^51 (PnP-6) M 




■ITA?^! 


A.WACi*S/TW/c)cr 01 JUNi 69 


V?l? 


1174 


P>01654 


7776;'e 


001677' 


' nFPi\IT«! 


lOWO 200,RUF+) 


11^»5 


CI016S5 


i'aa^ri 


?> H 7 1 


ONFOMt! 


Vl»^ 1,1 


H5"6 


ffdid-^b 


0000 ;'0 


00?li;?0 


USFWRD: 




llf? 


f016'>7 


1? '," 


000000 


USEPRIj! 


r, 


11^8 


!^01660 


0000;'0 


000000 


PIMTR: 


rn 


11:^9 


C01661 


M g 


'^0 


TEMP! 





1110 


f»ai662 


?:000zi0 


000010 


TEMPA! 




nil 


?01663 


0000?ie 


000000 


block: 


'. 


1112 


001664 


!?000«0 


000000 


OUANTM : 


17. 


1113 


C01665 


0000^0 


0000r?£; 


ERRCMI ! 





1114 


S1016A6 


0000i?0 


000030 


FNOT'^P; 




1115 


P101667 


?!000fi0 


000000 


UNIT: 


^ 


1116 


(»^1670 


0000i'0 


000000 


COMAND: 





1117 


001671 


0000?0 


000000 


EHRFLti: 


c 


uia 










IFN CPBIT, < 


1119 


PI01672 


i" ? 


000000 


RLKC^T: 





ii?e 


n01673 


0000ioe 


000000 


USPNTN! 





ll?l 


!'01674 


?1000'J0 


00^000 


svpntk: 





1132 


;»01675 


0000.10 


;•> 


ADRPRG: 


^ 


11"3 


P!01676 


?I000:»H 


0000^0 


TIRCTM 


„ 


U?4 








> 




U?5 


5101677 






BUF! 


"LOCK 200 


1126 


C0?^77 






OTAE^JI): 


Ei^n 


11?7 


002077 


777777 


7776''1 






11?8 


0021!?0 


7777'i2 


000123 






1129 


^02l?l 


?'500i'0 


000000 






1130 


C02i:'2 


000026 


000026 






1131 


0021^3 


000040 


020000 






1132 


F)02l04 


0000B1 


001677' 






1133 


f02l(?'5 


1012i10 


001677' 






1134 


002lC"6 


720l'/0 


000700 






1135 


002lf 7 


264000 


001323' 






1136 


002110 


720000 


000300 






1137 


("02111 


264000 


0013r'3' 






1138 


002112 


264000 


001236' 






1139 


C02113 


400000 


010300 






1140 


002114 


264000 


001226' 






1141 


002115 


001'677' 


000001 
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N'O ERRORS DETECTED 
PROGRAM BREAK IS 002116 



OTCSfiN 


- NEU FORMAT DEC 
SYMBOL TABLE 


TAPE 


ACl 


B00ei5 


INT 


A R E K R 


001615' 


EXT 


AOVSFF 


MlAMi' 


EXT 


SFPNTR 


??1654' 




eLKC^T 


aul672' 




HLKSRB 


p)(i?)4?3' 




8UF 


0^1677' 




CLOCK 


aei&it' 


EXT 


COHAND 


00167£ ' 




CPniT 


777777 777777 




CAT 


!'0B0;'5 


INT 


ncLor 


flS1343' 


EXT 


nco:\i 


0^1217' 


EXT 


OECPTR 


?«K455' 




nEVFlL 


03f«;ll 


INT 


n E V M ' I D 


2!i)?e:M 


INT 


OIPCWK 


ni|()04"l' 




HLFTF 


?i004/,i| ' 




RhIFLA 


!"K1673' 




OMPAVl 


-'013 '6' 




TMPCl S 


O2H0^-!t: 




DIPFi A 


j'aii^s' 




TMPI 


?idl':/?i' 




OMPQ 


<m<dl Ti' 




nMPQVR 


aaii-Ttf 




nMPTHZ 


5101551' 




"MPT-fR 


5101 bis 7 ' 




DSER1 


?0036>5' 




DTAT'-'R 


0012:<6' 




HTrCML 


?i015.n' 


EXT 


DTCOIS 


?!002J2 


IfMT 


OTCT'l 


001365* 




DTCIVT 


5"013''7' 


INT 


DTCChK 


00101 2' 




TTTRV 


001625' 


EXT 


ENTR-J 


?a0476 ' 




ENTRT 


000570' 




FkPFlG 


301671' 




FILB"F 


0010J 2 ' 




FNTBLi 


'012U' 




FNrT"<P 


^016^6 ' 




FSTBLK 


pacijii 




FTLOr-I 


777777 7777-'7 




GETOrD 


•00;V7t2' 


EXT 


HUS-GST 


-J^kJB-'l 


I.MT 


lOPKTL 


:M00''0 


INT 


lOrTFK 


1000'?E 


INT 


lOIMPH 


4000.10 


INT 


low 


J!00ePl 


INT 


JBTSTS 


a >< 


EXT 


LOOK 


!50P2«7' 




L00<- 


3003 n' 




WA^K^R 


.'00536' 
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AC? 


^00016 


INT 


ACRPPG 


001675 




BATDIS 


0016'=3 


FXT 


HLK 


5!0t'0?4 




rlkxuh 


001522 




RLKSPC 


00041 5 




CALiWT 


000674 




"LRACT 


0014=56 


EXT 


'■Ot'CHK 


001073 


EXT 


rPOPj 


000547 


EXT 


"^CAVJL 


001454 


FxT 


nCLori 


0012*3 


FXT 


ncouT 


001346 


FXT 


"EVCAT 


'100006 


INiT 


OEVIAD 


■?000P7 


INT 


PEVOAO 


0000)0 


InT 


nIRCTN 


•^01676 




DLOC 


000014 




OMIFLB 


001575 




nMPAV2 


0013^4 




n^PEOF 


001612 




DHPFLB 


001131 




okplst 


00005b) 




PMPOTH 


001140 




OMPSET 


001070 




0MPTH3 


001553 




OMPTSl 


001 104 




nSERCH 


000356 




f^TAVAL 


0015S4 


FXT 


-)TCCWN 


001255 


EXT 


nTCUIH 


000022 




nTCI\I2 


001377 




HTCSAV 


001366 


EXT 


"TRE': 


001533 


EXT 


nvniRi 


4a00r'0 


INT 


FNTkA 


000506 




EOF 


000756 




FRPS 


001616 




FMDl 


001343 




FNDBL4 


001277 




F0UN1 


001340 




FTCCL 777777 777777 




FTRC10 777777 777777 




OETJT 


000712 




IBLK 


000015 




I0C1E^:D 


15120000 


INT 


IOEImO 


'»0?040 


INT 


lORVRS 


001351 




IQWD 


001227 




jcnnnT 


0007f.2 


EXT 


looka 


000256 




LST.JLK 


001050 




namstr 


000123 





AC3 


700017 


IN^ 


ADVBFE 


001467' 


:-xT 


soniR 


031652' 




BLKC-JK 


000752 ' 




9LXSRA 


70042t;' 




BLOCK 


001663' 




CriNGOR 


000400 




CLSDMP 


5"00721' 




C0R2HM 


001052' 




CPOPJl 


701360' 


rXT 


OCIN 


001320 ' 


rxT 


DCOFF 


701463' 


rxT 


DCRE5 


001453' 


rXT 


OEVEXT 


000012 


INT 


DEVIOS 


000002 


I NT 


DIRHLK 


000144 




OISPAD 


000017 




DMIFIL 


001571' 




OMPADV 


001323' 




0MPAV3 


001336' 




DMPFIL 


001130' 




OMPFLC 


001173' 




DMPMOD 


004000 




DMPOVA 


001154' 




DMPST2 


001101' 




OMPTHA 


001550' 




ORPTR 


000543' 




GTAEMO 


002077' 




DTC 


003210 




OTCDDB 


000000' 


iNT 


OTCOSP 


000224' 




OTCINI 


700243' 


■\T 


DTCSRN 


,,,^7.,, 


• \" 


DTS 


■'' ^ ^' 2 1 " 




ENTR 


03.:'472' 




EMTRC 


000526' 




ERRC^JT 


001665' 




FAKADV 


001062' 




FNDSLS 


001252' 




FNDSLK 


001250' 




FREXIT 


000440 1 




FTOISK 777777 777777 




FTSKAP 777777 777777 




GETF 


000602' 




10 


000020 


INT 


lODERR 


200000 


IM 


lOGO 


001211' 




lOS 


000H00 


INT 


JBTADR 


000000 


FXT 


JOBSAV 


000000 


FXT 


LOOKC 


000307' 




LSTFRE 


000442' 




MEWENT 


000553' 





DTCSRN 
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IMMFOIIfj 


000372' 




NOPLKS 


00064B 1 




MOL IMK 


01i)0i;00 




MXTCOM 


C011'??' 




ONEOME 


K01655' 




OUT 


fi0H676' 


EXT 


OUTHRU 


001467' 




PIOFF 


001513' 


EXT 


PJ08KI 


PI0l6'J2' 


EXT 


PUMIT 


O012S3' 


EXT 


RDWXT 


001(3 ■,"7 ' 




READ^F 


001176' 




REf-'A^^l 


000332' 




REKEH2 


000352' 




RVTHRU 


001234' 




SETACT 


000720' 


EXT 


SETO 


000576' 




SHUTIN 


001241' 




SPRIUS 


001527' 




STOIOS 


0013<,7 • 


EXT 


SV4DFR 


001614' 




SVPWRD 


000021 




TACl 


0000K2 


INT 


TEMPA 


001662' 




THRUTD 


001457' 




T I M I M T 


001510' 




TOUSFR 


0013^6' 




TURN 


0015.'1' 




UOSD 


1 '? 




UOUT 


000777 ' 




IISPMTH 


001561' 




USLSTA 


00 6.^6 ' 




USRF't'A 


000616' 




UTPCLR 


000642 ' 




WAITl 


000711 ' 


EXT 



N'MLOOK 


000363' 




NDHUF 


04001716) 




MXTCMl 


001162' 




^XTFRE 


000433' 




nucocp 


001031' 




nUTBL2 


001043 ' 




POP 


000003 


INT 


PIOMOO 


000666' 


FXT 


PNTR 


001660' 




nUAKT 


000005 




RDWRT 


001202' 




RELEA9 


000000 


EXT 


RENAM2 


000335' 




PVFRS 


001226' 




RWDIR 


010000 




■^ETI 


000574' 




SETPTR 


0004?6' 




^INGL 


002000 




SRCH 


0013''3' 




STOTAC 


00061 0' 


EXT 


SVHMIN 


001556' 




■^VPMR 


001674' 




TEM 


000010 


INT 


THRUIN 


001440' 




ThRUTP 


001445' 




TIMRFQ 


001532' 




TPOPJ 


000364' 


EXT 


UADCKl 


000357' 


EXT 


III N 


000730' 




l)0UT2 


001030' 




USFPRG 


001657' 




USP,\TH 


001673' 




USRFRE 


000611' 




UUO 


000014 


INT 


WRTfiLK 


001045' 





NOBLK0 


001636' 




NOBUFC 


737777 




NXTCM2 


001170' 




OBLK 


000016 




OUFULL 


001022' 




OUTBLK 


001033' 




PERMER 


00163;0' 




PION 


001515' 


FXT 


PROG 


0000(":7 


INT 


QUANTM 


00166^' 




REAOBC 


00120121' 




RENAM 


00031B' 




RENERl 


000350' 




RVEUSE 


00l00t! 




SD 


000015 


INT 


SETIno 


00164*;' 


rXT 


SETW04 


000561^' 




SPACE 


000006 




SRCHXT 


001321' 




ST0W04 


000271' 




SVDMTH 


001536' 




TAC 


000001 


INT 


TEMP 


001661' 




THRUTA 


001453' 




ThSOAT 


00050^' 


rXT 


TOPBLK 


001101 




TPOPJl 


000000 


rXT 


UCLS 


0006631' 




UNIT 


001667' 




UREL 


000677' 




USEWRD 


001656' 




USRODT 


000771' 


rXT 


USRLST 


000633 ' 




VOTASR 


000012- 


■NT 


ZERCOR 


000762'' 





A 


6« 


6 


























ACl 


6« 


6 


119 


141 


1"9 




















4C? 


6« 


6 


476 


52» 


6^15 




















AC3 


6# 


c^J 


i-^7 
























SOCERR 


?l 


IkI'Ci 


























iDop^JG 


b7:\ 


sr'' 


1.'75 


1122# 






















ADVBFE 
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1(?19# 


























SVriMTH 


990# 


ie38 


























SVDWRD 


44# 


670 


691 


696 


1012 


1042 


1055 
















SVPNTR 


6?6 


1072 


1121* 
























SWP 


6# 


6 


























swpclR 


6# 


6 


























SYSQFV 
TAC 


6# 
6# 


6 

6 


112 


115 


116 


118 


119 


148 


149 


159 


160 


162 


163 


172 




174 


175 


177 


178 


179 


183 


184 


186 


192 


193 


198 


200 


273 


2, '6 




2^9 


245 


253 


2 60 


292 


298 


299 


300 


302 


304 


318 


319 


324 


3^5 




340 


341 


343 


354 


357 


378 


414 


415 


417 


418 


419 


421,; 


4 21 


4d3 




4?5 


427 


433 


434 


436 


437 


439 


461 


462 


496 


498 


499 


506 


5.7 




51B 
6?7 


519 


522 


523 


549 


550 


551 


584 


585 


586 


587 


588 


604 


6;4 




628 


629 


630 


636 


647 


650 


667 


569 


670 


671 


675 


682 


bo3 




684 
7?8 

8f:5 


685 


686 


687 


68a 


696 


710 


712 


714 


715 


716 


720 


723 


726 




729 


764 


765 


766 


767 


777 


779 


792 


793 


797 


796 


799 


824 




8" 7 


BJ'S 


a!19 


610 


812 


819 


820 


8?1 


822 


824 


825 


826 


827 




638 


839 


840 


tl41 


843 


846 


347 


848 


849 


850 


875 


877 


891 


8^2 




893 


8"4 


911 


912 


919 


921 


922 


953 


954 


956 


957 


958 


963 


965 




967 


IKll 


IL'33 


1034 


1042 


1047 


1049 


1052 


1055 


1070 


1079 


1100 


1101 





TACl 


6# 


6 


112 


114 


121 


124 


179 


130 


194 


196 


198 


202 


203 


2124 




220 


221 


274 


277 


287 


289 


290 


291 


292 


297 


298 


348 


349 


351 




352 


353 


354 


418 


419 


421 


422 


423 


424 


425 


426 


427 


437 


438 




<t39 


497 


498 


499 


520 


521 


523 


577 


587 


588 


590 


591 


640 


648 




649 


6'i7 


658 


659 


660 


662 


663 


707 


711 


721 


722 


888 


890 


893 




894 


994 


1030 


1032 


1034 


1046 


1048 


1072 


1073 


1074 


1075 


1076 






TEM 


6# 


6 


228 


229 


244 


249 


2 = 4 


259 


260 


350 


351 


383 


386 


387 




391 


396 


399 


401 


565 


566 


567 


569 


571 


647 


648 


768 


769 


770 




774 


lD'i6 


1047 
























TEMP 


797 


812 


819 


827 


1109# 




















TE^PA 


963 


95 B 


981 


932 


1110« 




















THRUIN 


9M 


9'*2 


905 


911# 






















THRUTA 


9?4» 


929 


























THRUTO 


615 


918 


929# 
























THRUTP 


83 


553 


881 


912 


917# 


941 


942 


945 


949 


1016 


1096 


1099 






THSDAT 


2ia 


291 


























TIM INT 


858 


961« 


























TIMRFQ 


963 


967 


985# 
























TOPBLK 


31# 


232 


312 


392 


4f!9 


5(^4 


9f 4 


944 


1007 


1057 










TOUSCR 


608 


620# 


























TPOPJ 


18 


195 


























TPOPJl 


18 




























TRNERR 


6# 


6 


























TTYATC 


6# 


6 


























TTYBIU 


btl 


6 


























TTYUSE 


e# 


6 


























TURN 


953# 


975 


























UADCKl 


22 


190 


























UCHN 


6# 


6 


























UCLS 


85 


43U# 


























UDSD 


46# 


ina 


211 


283 


412 


431 


44? 


486 


536 


555 


607 


889 


896 




UIN 


87 


483* 


525 
























UIOMOD 


6# 


6 


























UNIT 


721 


767 


805 


919 


954 


1115# 


















IJOUT 


86 


535# 


























UOUT? 


537 


544# 


























UREL 


84 


445i» 


























USDMTH 


992 


1030* 


























USEPHG 


453 


S63 


11'37# 
























USEWRD 


464 


861 


ll?i6# 
























USLSTA 


311 


404# 


























USPNTR 


625 


820 


821 


1073 


1120# 




















USRDDT 


473 


524 


























USRFRA 


388# 


4'^0 


























USRFRE 


374 


383# 


562 
























USRLST 


390 


A^l» 


























USRMOD 


6* 


6 


























UTPCLR 


97 


412# 


























UUO 


6# 


6 


113 


114 


123 


130 


131 


147 


148 


152 


153 


156 


157 


174 




176 


177 


182 


185 


186 


189 


194 


199 


272 


237 


2fl8 


287 


286 


289 




295 


296 


297 


316 


317 


318 


342 


348 


350 


355 


368 


601 


634 


610 




611 


624 


625 


626 






















UWP 


6* 


6 



























UWPOFF 


tit 


6 


VDTASR 


14# 


]4 


WAITl 


21 


14B 


WRTBLK 


45<S 


b7t# 


wtmask 


6# 


6 


2ERC0R 


479 


517« 



ai9 



36-' 



372 



455 



CODES 


6*< 


DISABL 


b» 


ENABLE 


btt 


NOSCHE 


btl 


NOSHUF 


bit 


que:ues 


6# 


SCHEOL* 


btt 


SHUFFL 


6* 


STARTO 


6# 


XP 


6« 
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